$ perl -wE 'say join " ", grep $_ < 0, map 20 - int rand 30, 1 .. rand 20;'
-6 -9 -2