$ perl -MO=Deparse -wMstrict=refs,subs -e 'BEGIN { *::x=\$a   } $x++'
BEGIN { $^W = 1; }
use strict 'refs', 'subs';
sub BEGIN {
    *x = \$a;
}
++$x;
-e syntax OK