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

##</code><code>##

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

##</code><code>##

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;
my (@unpacked) = unpack 'C*', $packed;

print "$packed\n";
print join ',', @unpacked;