Select Code to Download

sort USERSUB LIST

my $mysortref = sub {
    lc($data{$a}[0]) cmp lc($data{$b}[0]) 
...
    lc($data{$a}[1]) cmp lc($data{$b}[1])
};
@results = sort $mysortref (keys %data);

my (%data, @results);
while (<DATA>) {
...
VAZQUEZ        TOMASINA   456790 LAVER  0110      1980-11-14 1960-14-0
+2
WILSON         SYLVESTER  498703 LAVER  0110      1983-04-02 1953-06-2
+2
VASQUEZ        ALBERTO    906786 TRE    0111      2001-07-15 1953-02-2
+8