Select Code to Download

foreach my $line (@file) {
        chop ($line);
...
        my @values = split (/,/, $line);
        $thehash{$values[$field]} .= "$line\n";
}

@keys = sort(keys %thehash);
foreach (@keys) {
        print "$thehash{$_}";
}