#!/usr/bin/perl 
use strict;
use warnings;  

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

my $ref = getfiles('.');

print "@$ref\n";