my ($foo,$bar,$baz,$i); for $i (0..10) { print "$i\n"; };