sub openFile {
  my (@entries, $filename);
  $filename = $file1    if ($file1);
  $filename = $file2    if ($file2);
  open(FH, $filename) or die($!);
    @entries = <FH>;
  close(FH)

  # Other processing here

}