Select Code to Download

#!/usr/bin/perl
use strict;
...
    print $fh (join ',', @$_), "\n" for sort column_sort records;

__END__

report:  sort lnum-a,source-a,hits-d,sip-d,time-a
Monmouth,2000-05-2000:00:09-04,192.35.75.69,138,192.100.255,66,2,105,1
+234
...
Lewis,2000-03-1200:21:45-32,167.54.80.65,144,192.67.29,134,32,107,1487
Hero,2001-01-0500:00:11-04,211.34.78.93,132,184.57.62.35,151,12,101,15
+32
Jackson,2000-01-0500:00:11-04,193.0.0.195,175,184.57.62.35,151,14,105,
+153

sub column_sort {
    @$::a[8] <=> @$::b[8]
...
    @$::a[1] <=> @$::b[1];
}
1;

        REQUEST FOR SORTING

...
Meade,2001-01-0500:00:11-04,213.132.32,175,184.57.62.35,151,12,107,153
+2
Yuma,200-03-1100:00:12-05,210.0.0.0,156,192.78.54.21,156,10,105,1578
Monmouth,200-04-1000:00:10-08,63.0.0.0,125,192.45.67.2,159,16,101,1879