$ref1 eq $ref2

##</code><code>##

$ perl -E '
    my @x = ({}, []);
    my $y = $x[0];
    say for @x, $y;
    say $_->[0] eq $_->[1] ? "Y" : "N" for [@x], [$x[0], $y];
'
HASH(0x600003a70)
ARRAY(0x600076050)
HASH(0x600003a70)
N
Y