perl -MO=Deparse -wMstrict -e "BEGIN { package bla { *::x=\$a } }"
# No problem