$b[$_] > 1 and push(@c, $a[$_]) for 0 .. $#a;; [download]
In reply to Re^2: Boolean array indexing by Anonymous Monk in thread Boolean array indexing by johnmillerflorida