#!/usr/bin/perl -w

use strict;
use warnings;


my $file = $ARGV[0];
open (FILE, $file);
my @array = <FILE>;
close(FILE);
chomp(@array);

opendir(DIR, "path/to/folder/with/my/files");
my @files = readdir(DIR);
chomp(@files);



    foreach my $i (@array)      
        {
        if(grep @array[$i], @files)
            {
            my $match = (grep @array[$i], @files);