in reply to How to Pass more than one file in perl MY function
my @files=<data/j*.[13a].txt>; [download]