$b[$_] > 1 and push(@c, $a[$_]) for 0 .. $#a;;