#!/usr/bin/env perl

use strict;
use warnings;

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