$ perl -Mstrict -e " my $foo = { 1, 1 }; exists $foo->{1}{2} "
Can't use string ("1") as a HASH ref while "strict refs" in use at -e line 1.