use Data::Dumper qw( Dumper );

for (qw[ A066 A067 A098 A099 ]) {
   my $coded = pack('N A1 A*', substr($_, 1), substr($_, 0, 1),  $_);
   local $Data::Dumper::Useqq = 1;
   local $Data::Dumper::Terse = 1;
   print("$_: ", Dumper($coded));
}