use Data::Compare;
if (Compare(\@a, \@b)) {
    # equal
}