use strict;
sub out{
 my sub this{my $n=9;print "\n$n"} my $i=7; my $j=3
}

&this;


9