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

##</code><code>##

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