use Tie::File::AnyData;
my $coderef = sub{
  ## Code to retrieve one by one the records of a given format
};
tie my @data, 'Tie::File::AnyData', $file, code => $coderef;
## Use the tied array