$ perl -Mstrict -Mwarnings -e '
    my @waits = (2, 3, 5);
    print $waits[int rand @waits] for 1 .. 12;
'
252523222533