Select Code to Download

use strict;

my @l = qw/10 20 30/;
...
$t += $_ foreach @l;
print '$t = ' . $t . "\n";
print '$i = ' . $i . "\n";

use strict 'refs';
my(@l) = ('10', '20', '30');
...
$t += $_ foreach (@l);
print '$t = ' . $t . "\n";
print '$i = ' . $i . "\n";

$t = 60
$i =