my @bytes = unpack "C*", $a;