Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
       print "$pair found at $k, $aref->[3] time(s)\n";
    }
}

Select or download this

$ 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)