Select Code to Download

my @lines = sort <LOOPFILE>;
foreach ( @lines ) {
...
    print OUTFILE "<br><b>$lineItems[0]</b> ($lineItems[1])\n";
    # ...
}

my @lines = <LOOPFILE>;
my @unsorted;
...
foreach ( @sorted ) {
    print OUTFILE '<br><b>', $_->[0], '</b> (', $_->[1], ")\n";
}