@rand = grep { $_ < 0 } @rand;