Select Code to Download

use Scalar::MoreUtils qw(zip); # I'm lazy

...
    # Return the result as new rows, ordered asciibetically (because I
+'m lazy) by their key:
    map { $result{ $_ } } sort keys %result;
};