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