Select Code to Download

82  2 22 1043 54.7 48.020 114.037 17.5 3.2     2.9 13 177  84.3 0.20  
+1.6  2.7 C MBMG *         3.1 KALISPELL VALLEY; FELT            3.07

...

CLX IPC4408.70 ES19.7

     13 

...
CLX 4408.70  19.7

1043 54.7 114.037 48.020  17.5 3.2  177

use strict; 
use warnings; 
my $fin = "SELECTDAT2"; 
...
print $oh events(), "\n", @$_ for sort {$a->[3] <=> $b->[3]} @records;
+ 
close ($oh); 
close ($ih);