while (my ($left, $right) = each %iso8859)
{
    $str =~ s/$left/$right/g;
}