my @hex = ((unpack "H*", $bytes) =~ /(..)/g);