my @list = qw/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /;
      if (grep $a =~ /_($_)$/, @list) {
         if ($a =~ m/^(16, 24, 25, 34)$/ && ($tbvartyp || 2003) != 2003) ||
            ($a =~ m/^(43, 44, 63, 64)$/ && ($tbvartyp || 2002) != 2002) ||
            ($a =~ m/^(56)$/             && ($tbvartyp || 2004) != 2004) ||
            ($a =~ m/^(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";
            }
       }
      }