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

}