@a = (5,10,15);
@b = (5,10,15);

$num = &arrayComp(@a, @b);
print "num - $num\n";

sub arrayComp(@a, @b) {

my(@a, @b) = @_;

if (@a != @b) {
    $equals = 0;
} else {
    $equals = 1;
    foreach (my $i = 0; $i < @a; $i++) {
        if ($a[$i] != $b[$i]) {

            $equals = 0;
            last;
        }
    }
}

return $equals;
}