use Devel::Peek qw( Dump );

my $array = '';
for my $bit (0..63) {
   $array .= chr( 1 << $bit );
}

Dump($array);