my $code = ""; map { $code .= $_} (@{$self->{GENES}});