use Data::Dumper;

$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent   = 0;

if( Dumper($struct1) eq Dumper($struct2) ) {
    warn "same!"
} else {
    warn "not same. :("
}