use Tie::File::AnyData;
tie my @data, 'Tie::File::AnyData', $file;
       ## Use the tied array as with Tie::File