Given he probably wants to print to a log file, you could remove the data storage overhead by changing

my @linearr;
...
print @linearr;
[download]

to

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

You still might want to tweak the internals of the loop.