my $h = unpack( 'H*', scalar reverse $bitstring ) ;