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