Select Code to Download

#!/usr/bin/perl -w

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

                open(FILE, $i);

...
        print "$id\t$str\n";";
            }
        }