#!/usr/bin/perl

use strict;
use warnings;

my $a = "a";
my $b = "b";
my $c = "c";
my $d = "d";
my $e = "e";

if ( eq_list ([$a, $b, $c, $d, $e], [qw(a b c d e)]) ) {
    print "success\n";
}
else {
    print "failure\n";
}

sub eq_list {
    my ($arr1, $arr2) = @_;
    my @compared = map { $arr1->[$_] eq $arr2->[$_] ? 1 : 0 } (0..$#$a
+rr1);
    my $bool = 1; $bool *= $_ for (@compared);
    return $bool;
}
[download]