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

##</code><code>##

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

##</code><code>##

                  INIT {
                  my $foo=512;
                  sub something {
                         $foo++;
                  }
          }