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

##</code><code>##

$ perl -we '
my @array = qw( file1 file2 file3 );
foreach my $i (@array) {
    print "\$i = $i\n"
}'
$i = file1
$i = file2
$i = file3

##</code><code>##

$ perl -we '
my @array = qw( file1 file2 file3 );
foreach my $i ( 0 .. $#array ) {
    print "\$i = $i\n"
}'
$i = 0
$i = 1
$i = 2