Select Code to Download

my @result = map { $_->[0] }
                      sort { $a->[1] <=> $b->[1] }
                      map { /_(\d{2})_/; [ $_, $1 ] } @f;