sub any {
  my @recArray;
  local $_;
  ...
  while ( defined ($_ = <$fh> ) ) {
    push @recArray, $_;
    ...
  }
}