I'm a little afraid about where you're going to use this, but.... ;-)

The key is to substitute each one at a time, like this:

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