perl -le '@list=1..10;for(1..3){push @list,shift @list for 1..rand 10; print pop @list}