my $packet = pack('d>*', @nums);