use Devel::Size qw[total_size];

my @a = ( 0,54,28,76,126,0,28,54,62,54,0,28,54,60,48,0,54,54,62,54,0 );

my $packed = pack 'C*', @a; 

print 'Memory requirement of ', total_size(\@a)
    , ' bytes is reduced to ', total_size(\$packed), ' bytes';

Memory requirement of 476 bytes is reduced to 46 bytes.