my $rand64 = (int(rand(4294967296)) << 32) | int(rand(4294967296)); #### use Math::Random::MT::Auto qw/irand/; my $rand64 = irand();