Select Code to Download

sub sort_and_print_hash_keys (\%) {
    my %hash = %{shift()};
...
    }
    print "\n";
}

sub sort_and_print_hash_keys (\%) {
    my $hash = shift;
...
    }
    print "\n";
}