my @top;

while (<DATA>) {
    my ($id, $score) = split ' ';
    push @top, [$id, $score];
    @top = sort {$b->[1] <=> $a->[1]} @top;
    pop @top if @top > 20;
}