Select Code to Download

my @list = map {"E$_"} (1..20);

for my $k (sort {substr($a, 1) <=> substr($b, 1)} @list) {
    print "$k ";
}

my @list = ("A15", "Y2", map {"E$_"} (1..20));

...
) {
    print "$k ";
}