Hello Eso. The first thing I notice in your code is that you loop with the condition $all_the_numbers<20, but $all_the_numbers never changes, meaning you have to exit the loop manually with last (last should mostly be used for early exit, not for the normal stopping condition). The more perlish way to loop a given number of times is:

for (0..$all_the_numbers)
{
  ... # This will be called $all_the_numbers+1 times 
      # (eg, if $all_the_numbers is 1, it will be called for 0 and 1, 
+so twice)
}
[download]

About what you are trying to do: it's simpler to avoid modifying an array while you are iterating over it (looping on it's elements). So you should build the second list in a separate array, which you can either do at the same time as the first one, or in a separate loop, like this:

for (0..$all_the_numbers)
{
   my $number = 30 - int(rand(20));
   push @all_rand, $number; # Always add to all_rand;

   next if $number >= 0; # Skip if number is positive
   push @negative_only;
}
[download]

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