my %lookup = (
    blah => "Tod",
    blubb => "Teufel",
);

for ('blah', 'BLAH') {
    print $lookup{lc $_};
}