Select Code to Download

use Tie::File;

...
}

untie @data;

use File::ReadBackwards qw( );

...
while (defined(my $line = $fh_in->readline())) {
   print $fh_out $line;
}