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