$ perl search_hash.pl 
TTTT_AAAA found at 4, 1 time(s)
TTTT_AAAA found at 2, 1 time(s)
TTTT_CCCC found at 1, 1 time(s)
TTTT_AAAA found at 4, 2 time(s)
TTTT_AAAA found at 2, 2 time(s)