$replacements{quotemeta($array1{$count})} = $array2{$count}; #### my $repl_str = join( '|', keys %replacements); $someText =~ s/($replstr)/%replacements{$1}/g;