Re^2: Counting variable initialization

[eric256]

Thats odd. That isn't the deparse I get at all. Before:

use strict;

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

After:

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

Output for both scripts:

$t = 60
$i =