sub Get_File_List {
  my $pat = shift;
  return glob ($pat);
}


sub my_other_sub {

  my $file = shift;

  # --- maybe file has wildcards?  Define array
  #     to hold all files
  my @files = Get_File_List($file);

  # do stuff with @files
}