Help for this page

Select Code to Download

Select or download this
```
my @top;

...
ID2 8
ID3 3
... 42
```

Select or download this

my @top;

...
    @top = sort {$b->[1] <=> $a->[1]} @top;
    pop @top if @top > 20;
}