my $lig;
...
$lig=4;
print STDERR "ligA <<$lig>>\n";
sub xxxx
{
...
print STDERR "ligX <<$lig>>\n";
}
print STDERR "ligB <<$lig>>\n";
xxxx();

##</code><code>##

ligA <<4>>
ligB <<4>>
ligX <<>>