#1 Problems with more than 9 tags

[James Shimada]

If the desift template contains the default field
identifier: %number then it will not work properly
if "number" is 10 or greater. For the tag %10, the %1
part will be replaced with the data intended for the %1
tag.

This is fixed by sorting the tags in descending order
before during the tag replacement:

for $fld ( sort {$b <=> $a} keys %flds ) {
...
}