Select Code to Download

id   col1   col2    col3
12   100    12        196        
...
13   101    340        25 
14   100    123        19 
15   80     389        39

sub sort {
    my ($INPUT, $OUT) = @_;
...

print $OUT Dumper(\%hash);
}