In that line, you may be better of using

sub match{
  my $MType = shift;
   $_ eq $MType and return 1 for ( qw(-41 -55 -jj 1au 24u 36u ));
}
[download]

Hope this helps,

Jeroen
"We are not alone"(FZ)