for($j=0;$j<2;$j++){
            $len=$len-13;
            ($tmp, $obj->{$j}->{txABC},$obj->{$j}->{txDEF},$obj->{$j}->{txGHI}, $obj->{$j}->{txJKL}, $obj->{$j}->{rxABC}, $obj->{$j}->{rxDEF}, $data)=unpack("C v v v v v v a$len",$data);