my @last_gen=@{$allgen{$i-1}};