for (                       # Lexical scope
  my($idx,$x,$y)=(0,0,0);   # Initializer
  $idx<10;                  # Condition
  ++$idx, $x+=2, $y+=3      # Prep for next iteration.
) {
  print "$idx, $x, $y\n";
}