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