for my $key (keys %$tData)
{
     my $value = $tData{$key};
     print "overlap: $key $value\n";

}


##</code><code>##


 return($tData, $aData);


##</code><code>##


my ($tOVERLAPData, $aOVERLAPData) = getOVERLAPData($fOVERLAP);