@; = (491036,8051555,4785250,3341086,912133,189089,691108);

##</code><code>##

================================= ==================================
##</code><code>##

$:{do} = 'to';

##</code><code>##

eval '$:{q?'.$_.'?}=~s'.shift@; for keys(%;);

##</code><code>##

$_ = qq{@{[@:{qw{ He didn't do it }}]}};