Select Code to Download

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

$ perl -we '
my @array = qw( file1 file2 file3 );
...
$i = file1
$i = file2
$i = file3

$ perl -we '
my @array = qw( file1 file2 file3 );
...
$i = 0
$i = 1
$i = 2