...
 open FILE, ">$input" or die $!;
 tie @array, 'Tie::File', \*FILE, ...;
 ...