% ./perl  -Mwarnings -Mstrict -e'my %a = ( a => 1); print %a->{a}'
Using a hash as a reference is deprecated at -e line 1