my $tmpl = $tmpls{ $text{ '$BYTEORD' } }
                 { $text{ '$DATATYPE' } }
                 { $text{ '$P1B' } };