my $lownible =(ord $byte[0] & 0x0f);