Help for this page
use warnings; use strict; ... print "$pair found at $k, $aref->[3] time(s)\n"; } }
$ perl search_hash.pl TTTT_AAAA found at 4, 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)