$ perl -le'
>    $a=""; $a .= chr 1<<$_ for 0 .. 63;
>    print length $a;
>    $a = reverse $a;
>    print length $a;
> '
64
64