Select Code to Download

    my @ARRAY = split(/[\r\n]+/, $ENTIRE_FILE_CONTENT);

use Tie::File;

tie my @array, 'Tie::File', filename or die "Cannot open 'filename' be
+cause: $!";

    for (my $i = 0; $i < @ARRAY; $i++)
...
      print "\n$ARRAY[$i]";
    }

    for my $i ( 0 .. $#ARRAY )
...
      print "$ARRAY[$i]\n";
    }