my $n = unpack "d", pack "C*", @numbers;