c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %h = qw(foo oofzle  bar rabzle  quux xuuqzle  fee eefzle);
 dd \%h;
 ;;
 my @k = grep m{ foo | bar }xms, keys %h;
 ;;
 map s/zle/DING/, @h{ @k };
 dd \%h;
"
{ bar => "rabzle", fee => "eefzle", foo => "oofzle", quux => "xuuqzle" }

{ bar => "rabDING", fee => "eefzle", foo => "oofDING", quux => "xuuqzle" }