foreach my $nnn (@pats)  # @pats = (AAAAA, TTTTT, GGGGG);
         {
         $patsmap{$nnn} = 0;
         }