while ( <COLL> )
{
	chomp;
	@coll = split /:/;
	$basicColl{$coll[0]} = $coll[1];
}

##</code><code>##

open(CORP,"<$path") or die ("Error...: $!");

##</code><code>##

open CORP,"<$path" or die "Error...: $!";

##</code><code>##

if($mother)
{
	$lhs="$mothers[$depth]"."_$mothers[$depth-1]";
}
else
{
	$lhs="$mothers[$depth]"."_$aunties[$depth]";
}

##</code><code>##

$lhs = join '_', 
	$mothers[$depth], 
	$mother ? $mothers[$depth-1] : $aunties[$depth];