#!/usr/bin/perl use Data::Dumper; my %h = ( aa => hello, bb => ghello ); foreach ( values %h ) { s/el/ig/g }; print Dumper( \%h ); #### $VAR1 = { 'aa' => 'higlo', 'bb' => 'ghiglo' };