for $pfx ('', sort keys %prefix) {
$rstr= length($pfx) ? $prefix{$pfx}.' ' : '';
$dfstr= exists($prefixdf{$pfx}) ? $prefixdf{$pfx} :
for $pfx ('', sort keys %prefix) {
$rstr= length($pfx) ? $prefix{$pfx}.' ' : '';
$dfstr= exists($prefixdf{$pfx}) ? $prefixdf{$pfx} :