#!/usr/bin/perl
use strict;
use warnings;
use 5.10.1;

my $all_the_numbers=int(rand(19));

my @rand = map { 20-int(rand(30)) } (1..$all_the_numbers);

say "@rand";

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

say "@rand";