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