Select Code to Download

my ($i , $j);
$i = 1;
...
}
abc();
print "after sub $i\n";

before sub value of i=1
inside sub 2
after sub 2