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