$ perl -MO=Deparse 443218.pl
my(@l) = ('10', '20', '30');
foreach $_ (@l) {
    my $t += $_;
}
print $t;
443218.pl syntax OK