DB<72> $a{1}=\1

  DB<73> use warnings; say $a{1}{foo}{bar}
Not a HASH reference at (eval 81)[c:/Perl_524/lib/perl5db.pl:737] line 2.