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

##</code><code>##

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