for my $byte ( @frame ) {
        my $lowbyte  = ( $byte & 0x0f ) + 65;
        my $highbyte = ( $byte >> 4 ) + 65;