sub getfiles() { opendir DIR,$logSite or die "Unable to open Directory, please try again"; my @uploads; foreach $pattern (@ARGV) { push (@uploads, grep /$pattern/, readdir(DIR)); } closedir DIR; return \@uploads; }