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

##</code><code>##

use Tie::File;

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

##</code><code>##


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


##</code><code>##


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