$ perl -Mstrict -wle 'my %h=qw(foo bar); print %h->{foo}'
Using a hash as a reference is deprecated at -e line 1.
bar