while (my $kid_ = $kills_sth->fetchrow_hashref()){
    $KP->{$kid_->{k}}{$kid_->{v}}++;
}
# How many do we keep?
my $total = 10;
my %top;

for(keys %{$KP}){
    # Player ID
    my $pid = $_;
    VAL:
    for ( keys %{$KP->{$pid}}) {
        # Target ID
        my $tid = $_;
        my $frags  = $KP->{$pid}{$tid};
        for(0 .. ($total - 1)){
            my $idx = $_;
            $top{$idx}{f} ||= 0;
            if(($idx != ($total - 1)) && $frags > $top{$idx}{f}){
                my $idx2 = $idx + 1;
                $top{$idx2}{k}   = $top{$idx}{k};
                $top{$idx2}{v}   = $top{$idx}{v};
                $top{$idx2}{f}   = $top{$idx}{f};
                $top{$idx}{k}    = $pid;
                $top{$idx}{v}    = $tid; 
                $top{$idx}{f}    = $frags; 
                next VAL;
            }
            elsif(($idx == ($total - 1)) && ($frags > $top{$idx}{f})){
                $top{$idx}{k} = $pid;
                $top{$idx}{v} = $tid;
                $top{$idx}{f} = $frags;
                next VAL;
            }
        }
    }
}

for(0 .. ($total - 1)){
    my $id = $_;
    printf("%2s. p: %s\tt: %s\tf: %s\n",($id+1),$top{$id}{k},$top{$id}{v},$top{$id}{f});
}