Help for this page
use Devel::Size qw[total_size]; ... , ' bytes is reduced to ', total_size(\$packed), ' bytes'; Memory requirement of 476 bytes is reduced to 46 bytes.
my @ind = (0,3,1,6,7,0,1,3,5,3,0,1,3,4,2,0,3,3,5,3,0); my $ind = ''; vec( $ind, $_, 4) = $ind[$_] for 0 .. $#ind; print length $ind; #print 11