#!/usr/bin/perl

# https://perlmonks.org/?node_id=1229524

use strict;
use warnings;

my @rand = grep $_ < 0, map 20 - int rand 30, 1 .. rand 20;

print "@rand\n";