Select Code to Download

use warnings;
use strict;

  my %type;
     @type{qw(AB AC AD AE FG)} = (0) x 5;

##then you have something like this:
$VAR1 = {
...
          'AD' => 0
        };

   while(...){
    ...
    $type{$_}++;  ## increasing the counting as you see needed string
    ...
  }