Help for this page
my @linearr; ... print @linearr;
use Tie::File; tie my @linearr, 'Tie::File', 'noa.log' or die $!; ... untie @linearr;