my @a = bless([], "HASH");

##</code><code>##

{package HASH; use overload "%{}"=>sub{$_[0][0]}}
my @a = bless([{}], "HASH");

##</code><code>##

print @$x == grep({eval {\%$_}} @$x),"\n";