sorry, i forgot to put in code tags, the s// line should read:
$string =~ s/%([0-9][A-Z0-9])$hash{'\1'}/g;
zsh