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
}

##</code><code>##

> perl -e 'print "result: <",glob("*.txt"),">\n";'
result: <>
> perl -e 'print "result: <",glob("xx.txt"),">\n";'
result: <xx.txt>
> dir > x.txt
> perl -e 'print "result: <",glob("x.txt"),">\n";'
result: <x.txt>
> perl -e 'print "result: <",glob("*.txt"),">\n";'
result: <x.txt>
> perl -e 'print "result: <",glob("xx.txt"),">\n";'
result: <xx.txt>
> dir xx.txt
xx.txt: No such file or directory