Re^2: A matter of style: how to perform a simple action based on a simple condition?

[james2vegas]

foreach (@ray1) { push @ray2,$_ if ($_<0) }

doesn't seem to be the best example to use since it is probably better expressed with a map like

push @ray2, grep { $_ < 0 } @ray1