for 1 {
                  my $foo=512;
                  sub something {
                         $foo++;
                  }
          }