use Modern::Perl; use List::Util qw/shuffle/; my @sequences = (shuffle )[0 .. 9]; chomp @sequences; say "@sequences" __DATA__ first second third fourth fifth sixth seventh eight ninth tenth eleventh twelveth thirteenth fourteenth fifteenth sixteenth seventeenth eighteenth nineteenth twentieth