foreach (keys %iso8859) {
  $str =~ s/$_/$iso8859{$_}/g;
}