＞ @u=grep($in{'handle'},@u);

$in{'handle'}が真であるという条件だけで素通ししてるように見えるんですけど