Select Code to Download

use strict;
use warnings;
...
my $pop = int ($startPop * ($increase) ** $n);

print "$pop population after $n generations\n";

222044604925 population after 27 generations