my @bin = unpack 'C*', $a;
$a = '';
for (@bin) {
   $a .= sprintf ' 0x%02x', $_;
}