my ($i, $m);
   my $n = 5000000;
   # snippet goes here