my $n;

sub f {
   # $n is still accessible in this child block

   if (...) {
      # $n is still accessible in this child block

      for (...) {
         # $n is still accessible in this child block

         {
            # $n is still accessible in this child block
         }
      }
   }
}