Vždyť sortovat podle hodnot lze a dokonce bych se vsadil, že to bude srovnatelně rychlé protože přístup do hashe je v perlu sakramentsky rychlý

    print "$stat{$_} - $_\n"
foreach (
        sort {$stat{$b}<=>$stat{$a}} keys %stat
    )[0 .. $pocet-1];

Když už jsme v tom, tak proč nepoužít

@radky = map "$stat{$_} - $_\n", keys %stat;

@radky = ();
foreach my $klic (keys %stat){
    push @radky, "$stat{$klic} - $klic\n";
}

foreach my $klic (keys %stat){
    $radky[$i] = "$stat{$klic} - $klic\n";
    $i++;
}

print(
        (
            sort {$b<=>$a}
                map "$stat{$_} - $_\n", keys %stat
        )[0 .. $pocet-1]
    );