my $how_many = 10;
    for (sort { $hash{$b}->{score} <=> $hash{$a}->{score} } keys %hash) {
        printf "%-4s %-55s %5s\n",
            $hash{$_}->{col1}, $hash{$_}->{desc}, $hash{$_}->{score};

        last if --$how_many == 0;
    }