Select Code to Download

my @keys = qw(
    3242_38
...
    );

map { print "$_\n" } reverse @keys;

3518_44
3518_38
...
3242_38
3242_37
2313_44

3518_44
3242_49
...
3242_37
2313_44
3242_38