for my $random_number (@all_rand)
{
  push @negative_only if $random_number < 0;
}