Hmm. That's an interesting result. Can you give me the output of

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

on your system? XS won't be possible, by the way, as this is intentionally a pure-perl implementation.