■

#!perl

use strict;
use warnings;

my @ary = ();
my $i1 = length scalar @ary;
my $i2 = $i1 + $i1;
my $i4 = $i2 + $i2;
my $i8 = $i4 + $i4;
my $i16 = $i8 + $i8;
my $i32 = $i16 + $i16;
my $i64 = $i32 + $i32;

print chr($i64 + $i8), chr($i64 + $i32 + $i4 + $i1), chr($i64 + $i32 + $i8 + $i4), chr($i64 + $i32 + $i8 + $i4), chr($i64 + $i32 + $i8 + $i4 + $i2 + $i1),
chr($i32),
chr($i64 + $i16 + $i4 + $i2 + $i1), chr($i64 + $i32 + $i8 + $i4 + $i2 + $i1), chr($i64 + $i32 + $i16 + $i2), chr($i64 + $i32 + $i8 + $i4), chr($i64 + $i32 + $i4);