my %testhash = ( qw/frog toad man boy woman girl/ );
foreach (keys %testhash) {
    $foo =~ /\Q$_\E/$testhash{$_}/;
}