Like this:

    sub serialize {
        my $r = shift;
        ref $r ? '(' . join( ',', sort map serialize($_), @$r ) . ')' 
+: $r
    }

    sub deep_eq {
        my( $x, $y ) = @_;
        serialize($x) eq serialize($y)
    }
[download]