my ( ...., @labels, undef, $type, $class, ...) = unpack(".... (C/a*)$n C n n ....") ;