#!/usr/bin/perl

@array1 = qw(word_1 word_2 word_3 word_4 word_5);
@array2 = qw(word_1 word_0 word_3 word_7 word_9);

print "The first way\n";
my $index = 0;
@result = grep { $_ !~ @array2[$index++] } @array1;
(print "$_\n") foreach @result;

print "\n*\t*\t*\n\nThe second way\n";

$index = 0;
foreach (@array1) {
    print "$_ != @array2[$index]\n" if ($_ !~ @array2[$index]);
    $index += 1;
}