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