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