Select Code to Download

my $max;
for my $n ( qw/ 6 3 1 4 7 2 10 5 8 9 / ) {
...
    }
}
print "Max: ", $max//"none", "\n";