sub f {
   my $x = ...;
   {
      my $y = ...;
      ...
      # $y cleared here.
   }
   ...
   # $x cleared here.
}