sub sort_and_print_hash_keys (\%) {
    my %hash = %{shift()};
    foreach (sort keys %hash) {
        print "$hash{$_} ";
    }
    print "\n";
}

##</code><code>##

sub sort_and_print_hash_keys (\%) {
    my $hash = shift;
    foreach (sort keys %$hash) {
        print "$hash->{$_} ";
    }
    print "\n";
}