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