if (not defined $Monks::Parsers{ $self->{thing} }) {
    $self->{parser} = 'Generic';
}

##</code><code>##

foreach my $key (keys %{ $Monks::Parsers{ $self->{parser} } }) {
    dostuff;
}