my $x = 0; foreach my $y ($x) { $y = 5 } print "$x\n";