my @a1 = qw( a b c );
my @a2 = qw( a b c );

is_array_equal(@a1, @a2);

sub is_array_equal {
    my (@a1, @a2) = @_;

    print "a:  @_\n";
    print "a1: @a1\n";
    print "a2: @a2\n";
}