pairwise_eq.pl

#!/usr/bin/perl

use v5.18;
use List::MoreUtils qw<firstidx>;

sub pairwise_eq(\@\@) {
    my ($a1, $a2) = @_;
    return @$a1 == @$a2 && (-1 == firstidx { $a1->[$_] ne $a2->[$_] } 0..$#$a1);
}

my @a1 = qw(foo bar baz);
my @a2 = qw(foo bar baz);
my @a3 = qw(foo cook bar baz);

say "a1 vs a2 => " . (pairwise_eq(@a1, @a2) ? "All euqal" : "At least one difference");
say "a1 vs a3 => " . (pairwise_eq(@a1, @a3) ? "All equal" : "At least one difference");