Help for this page
my @top; ... ID2 8 ID3 3 ... 42
my @top; ... @top = sort {$b->[1] <=> $a->[1]} @top; pop @top if @top > 20; }