my $code = ""; map { $code .= $_} (@{$self->{GENES}}); #### my $code = join('', @{$self->{GENES}}); #### for my $i (0 .. $self->{SIZE}) { my $individual = Individual->new(); $individual->create(); push (@{$self->{INDIVIDUALS}}, $individual); } #### push (@{$self->{INDIVIDUALS}}, Individual->new->create) for 0..$self->{SIZE}; #### $self->{INDIVIDUALS} = [ map {Individual->new->create} 0..$self->{SIZE} ];