my @doubles = unpack "d*", $contents;