Help for this page
use strict; use warnings; ... close $inFile; print $esList{$_} for sort {$a <=> $b} keys %esList;
163|1|523|30|6 17|5|176|1288|1387 152|1|170|1845|473