$a=''; $a.=chr 1<<$_ for 0 .. 63;;

print ord unpack 'x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U] U1', $a;;
48