my @list = w/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /;
if (grep $a =~ /_($_)$/, @list) {
         if ((grep($a =~ /^$_/, (16, 24, 25, 34)) && ($tbvartyp || 2003) != 2003) ||
             (grep($a =~ /^$_/, (43, 44, 63, 64)) && ($tbvartyp || 2002) != 2002) ||
             (grep($a =~ /^$_/, (56))             && ($tbvartyp || 2004) != 2004) ||
             (grep($a =~ /^$_/, (70, 75, 77, 78)) && ($tbvartyp || 2001) != 2001)) {
           push @comments, "matched";
         }  
       }
       else {
          if (($a =~ /^56/ && ($tbvartyp || 2004) != 2004) ||
             ($a !~ /^56/ && ($tbvartyp || 2003) != 2003)) {
            push @comments, "matched";
            }
       }
      }