my @linearr;
...
print @linearr;

##</code><code>##

use Tie::File;
tie my @linearr, 'Tie::File', 'noa.log' or die $!;
...
untie @linearr;