Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
close $inFile;

print $esList{$_} for sort {$a <=> $b} keys %esList;

Select or download this

163|1|523|30|6
17|5|176|1288|1387
152|1|170|1845|473