my $last = 0; for (@chars) { $last = $#$_ if $last < $#$_; } say join ' ', map { sprintf '%-8s', $_->[0] } @chars; say join ' ', map { sprintf '%-8d', $_->[1] } @chars; say join ' ', map { sprintf '%-8s', sprintf '%02x', $_->[1] } @chars; say join ' ', map { sprintf '%08b', $_->[1] } @chars; say join ' ', map { sprintf '%-8s', sprintf '%*v02x', ' ', $_->[2] } @chars; for my $i (3..$last) { say join ' ', map { defined($_->[$i]) ? sprintf '%08b', $_->[$i] : (' 'x8) } @chars; }