my $dns = 'ACTAGCTAGCCATATTCG';
my $mutation = 'A';
my $pos = 8;
substr( $dns, $pos-1, 1) = $mutation;