# file

{ # code blockebene 1

   # code1 ebene1

   my $x; our $y;  # Anfang Geltungsbereich $x,$y in Ebene 1
 
  { 
   # code blockebene 2 

   package NEU;
   my $x; our $y;  # Anfang Geltungsbereich $x,$y in Ebene 2

   print $x; # $x in Lexpad 2
   print $y; # $y in Package "NEU", also $NEU::y;

   }# Ende Block2 und der Geltungsbereiche von $x,$y, und NEU
   our $z; # =$main::z; weil Geltungsbereich von package NEU verlassen.

} # Ende Geltungsbereich 1 $x,$y

#ende Geltungsgbereich file