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