{ # neuer lexikalischer block
  my ( $x, $y, $z ) = ( 42, 42+1, 42+2 );

  sub foo {
  }

  sub bar {
  }
}