#!/usr/bin/perl
use strict;
use warnings;
use 5.014;

my %rand;

for (1 .. 2**25) {
	my $r = rand;
	$rand{ $r }++;	
}

say scalar keys %rand;

use Math::Random::MT::Auto qw(rand);
%rand = ();
for (1 .. 2**25) {
	my $r = rand;
	$rand{ $r }++;	
}

say scalar keys %rand;	

##</code><code>##


C:\Old_Data\perlp>perl t.pl
32768
33554432

C:\Old_Data\perlp>perl -E "say 2**25"
33554432

C:\Old_Data\perlp>perl -E "say 2**15"
32768

C:\Old_Data\perlp>