$ perl -Mstrict -lwe 'main->{x} = 1; print $main{x}'
Can't use bareword ("main") as a HASH ref while "strict refs" in use at -e line 1.