Apologies for the missing code:

$v *= 2;
print "$v\n";
[download]

I am now appropriately humbled by the insightful and useful comments. I knew I wasn't up to speed on Perl's internals, but I had no idea just how slow I was going until now...