You can use Test::Differences for array comparison:

$ cat 642261.pl
use strict;
use warnings;
use Test::More (tests => 2);
use Test::Differences;
my @foo = (1 .. 4);
my @bar = (1 .. 4);
eq_or_diff(\@foo, \@bar, q{compare foo with bar});
push @foo, 1;
push @bar, 2;
eq_or_diff(\@foo, \@bar, q{compare foo with bar});
__END__
$ perl 642261.pl
1..2
ok 1 - compare foo with bar
not ok 2 - compare foo with bar
#   Failed test 'compare foo with bar'
#   at 642261.pl line 11.
# +----+-----+----------+
# | Elt|Got  |Expected  |
# +----+-----+----------+
# |   0|1    |1         |
# |   1|2    |2         |
# |   2|3    |3         |
# |   3|4    |4         |
# *   4|1    |2         *
# +----+-----+----------+
# Looks like you failed 1 test of 2.
[download]