#!/usr/bin/perl -w

use strict;
use Array::Compare;

my $cmp = Array::Compare->new;

my @array1 = ("q", "w", "e", "r", "t", "z");
my @array2 = ("q", "w", "e", "r", "t", "y");

my @diffs = $cmp->full_compare(\@array1, \@array2);

if (@diffs) {
  print "No matches for @array1[@diffs]\n";
} else {
  print "Arrays match\n";
}