my $packed = pack 'NN', time(), 123456789;;

my $c = chr(0); 

$c ^= substr $packed, $_, 1 for 0 .. 7;;

$packed .= $c;;

print unpack 'C*', $packed;;
78 121 55 23 7 91 205 21 147