X-Men: Mutation

my @alphabet = ('a'..'z');
sub mutate {
my $chromosome = shift;
my $mutationPoint = rand( length( $chromosome->{_str}));
substr( $chromosome->{_str}, $mutationPoint, 1 ) = $alphabet[( rand( @alphabet))];
}

my @alphabet = ('a'..'z');