my $var = pack('a3CCx3C','ABC',01,02,09);