use strict;
for(my $i = 0 ; $i < 10000000 ; $i++) {
  my $num = rand;
}