$n = 0; $n |= 1 << $_ for 1,3,5,7;;
print $n, unpack 'H2', pack 'v', $n;;
170 aa