Select Code to Download

#!perl

...
for my $key ( keys %sorted_menu ) {
    warn Dumper( $key, $sorted_menu{$key});
}

#!perl
...
    print $dumper->dump(
    {ascending_values => [$key, $sorted_menu{$key}]});
}