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