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

##</code><code>##

$str =~ s/([\xA0-\xFF])/{$iso8859{$1} ? $iso8859{$1} : $1 }/ge;

##</code><code>##

$str =~ s/([\xA0-\xA6])/$iso8859{$1}/g;