for (my $k=0;$k<$number_positions; $k++) {
    my (%base1, %base2);
    # ...
        $letter1 = uc $letter1;
        $letter2 = uc $letter2;

        push @${$base1{$letter1}}, $letter1;
        push @${$base2{$letter2}}, $letter2;