my $i; for ($i=3, $i=2, $i=1) { print "$_ and $i\n"; }