use Tie::File;
tie my @array, 'Tie::File', Original or die "Error: $!";
# Do your stuff with @array now.