use 5.18.2; use warnings; $|++; srand 54321; say "One rand"; for (1 .. 20) { my $n = int rand 1152921504606846975; printf "\r%064b %016X\n", $n, $n; } say "Two rands"; for (1 .. 20) { my ($n1, $n2) = map { int rand 0xffff_ffff } 0, 1; my $n = unpack "Q>", pack "L>L>", $n1, $n2; printf "\r%064b %016X\n", $n, $n; }