$ perl -MO=Deparse -e '$foo{__PACKAGE__,"::foo"}=1;'
$foo{join $;, 'main', ':foo'} = 1;
-e syntax OK