my ($bar) = map +(0,'low','med','high')[tr/I//] || 'drat', $foo;
# or
my ($bar) = map qw(0 low med high)[tr/I//] || 'drat', $foo;