for (my $k=0;$k<$number_positions; $k++) {
    my (@a,@c,@t,@g,@n,@a2,@c2,@t2,@g2,@n2);