my $ref = [{}];
eval { %$ref || 1 };

__END__
Pseudo-hashes are deprecated at ...