Help for this page
my $lig; ... ... } print STDERR "ligB <<$lig>>\n"; xxxx();
ligA <<4>> ligB <<4>> ligX <<>>