Select Code to Download

use Modern::Perl;
use List::Util qw/shuffle/;

...
eighteenth
nineteenth
twentieth

my %sequences = map {chomp; $_ => 1} <DATA>;
my @sequences = (keys %sequences)[0 ..9];
say "@sequences";