Select Code to Download

while (not eof DATA) {
    # Read four lines and store them in the @record array
...
        print $sorted[$i][$j]."\n" if defined $sorted[$i][$j];
    }
}