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

##</code><code>##

1 and 1
1 and 1
1 and 1