If you only need the maximum (and you're not golfing), I see no reason to sort. You could use something like:

my $max=0;
for(map values %$_,values %result){
    my $n=split;
    $max=$n if $n>$max;
}
print $max;
[download]

HTH