if ($MType =~ /-[45][15j]/ig  || 
    $_     =~ /[123][a46]u/ig ||
    $_     =~ /7[9l][hb]/ig   ) {
      print "\"red\"";
} else {    
      print "\"#CCFFCC\"";
}

##</code><code>##

my %matches;
foreach (qw( -41 -55 -jj 1au 24u 36u)) {
    $matches{$_} = '';
}

if (exists $matches{$MType}) {
    print "\"red\"";
} else {
    print "\"#CCFFCC\"";
}