use strict;
sub external {
   my $foo = some_op();
   sub sub_of_sub {
       print $foo;
   }
}