use Test::Deep::NoTest qw( eq_deeply );

if ( eq_deeply($ref1, $ref2) ) {

    print "Identical!\n";
}
else {

    print "Different!\n";
}