use Tie::File; ... tie @data, Tie::File, $filename or die "Can't tie to $filename :$!\n";