In that case:

use strict;
use warnings;
main();
xyz();
sub main{
    my $h;
    foreach (1..20){
        $h->{$_} = int rand (100);
    }
    my $by_val = make_sort($h);
    foreach (sort $by_val keys %{$h}){
              print "$_","\t",$h->{$_};
    }
    print "\n";
}
sub xyz {
    my $k;
    foreach (1..20){
              $k->{$_} = int rand (100);
    }
    my $by_val = make_sort($k);
    foreach (sort $by_val keys %{$k}){
              print "$_","\t",$k->{$_};
    }
    print "\n";
}
    
sub make_sort {
    my $dat = shift;
    return sub { $dat->{$a} <=> $dat->{$b} };
}
[download]