print join(" ", map { sprintf "%#02x", $_ } unpack("C*",pack("L",0x12345678))), "\n";

print join(" ", map { sprintf "%#02x", $_ } unpack("C*",pack("L",$Bytes))), "\n";