my ($foo,$bar,$baz,$i); for $i (0..10) { print "$i\n"; }; #### my $i; if (rand > 0.5) { $i = 1; };