use constant PARSER => {
    Foo => undef,
    Bar => undef,
    Baz => undef
};
# . . .
$type = ( exists PARSER->{$type} and $type =~ /^(.*)$/ )
        ? $1
        : '';