for (1 .. 50) {
          my $x;
          $x++;
          print "x=$x\n";
        }

##</code><code>##


        { my $x;
          for (1 .. 50) {
            $x++;
            print "x=$x\n";
          }     
        }