my $i = 256;
my @a = unpack "CCCC", pack "N", $i;
print "@a"; # 0 0 1 0