#!/usr/bin/perl -w
use strict;

my @array_1 = ('a','b','c');
my @array_2 = ('x','y','c');
my $index1  = 0;
my $index2  = 0;

for ( @array_1 ) {
    # Reset the index of the second array because we're
    # going to read through it again
    $index2      = 0;
    my $element1 = $_;

    for ( @array_2 ) {
        my $element2 = $_;
        if ( $element1 eq $element2 ) {
            print "Index # $index2 of array_2 "           .
                "($array_2[$index2]) = index # "          .
                "$index1 of array_1 ($array_1[$index1])\n";
        }
        $index2++;
    }

    $index1++;
}