Select Code to Download

my $pat = join '|', @dates;
my @files = grep /$pat/, @logfiles;

my @files;
foreach my $file( @logfiles ) { 
...
        }
    }
}