Select Code to Download

sub openFile {
  my ($file1, $file2) = @_;  # assume these are passed as parameters
...
  # in list context, return the entire array, else (scalar context) a 
+ref
  return wantarray ? @entries : \@entries;
}