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