Select Code to Download

while (my $kid_ = $kills_sth->fetchrow_hashref()){
    $KP->{$kid_->{k}}{$kid_->{v}}++;
...
    my $id = $_;
    printf("%2s. p: %s\tt: %s\tf: %s\n",($id+1),$top{$id}{k},$top{$id}
+{v},$top{$id}{f});
}

 1. p: 2838413  t: 3440380      f: 328
 2. p: 2838413  t: 1261188      f: 282
...
 8. p: 539960   t: 3440380      f: 171
 9. p: 3440380  t: 539960       f: 146
10. p: 53957    t: 1261188      f: 127