Select Code to Download

    our @common_letters = ();
    our @wordsCopy = @words;

    local our @common_letters;
    local our @wordsCopy = @words;

    local our @common_letters;
    local our @wordsCopy = @words;
...
    $reference =~ /(.)(?{        
       ...
    })/gx;

    my @common_letters;
    my @wordsCopy = @words;
...
    while ($reference =~ /(.)/g) {
       ...
    }

    for my $c($reference =~ /./g)  # uses $c instead of $1

    for my $c (split(//, $reference))  # uses $c instead of $1

       my $bolean = 1; 
       for ( @wordsCopy ) 
...
           } 
       }
       $common_letters[ $position ] = $letter if ( $bolean );

       for ( @wordsCopy ) 
       { 
...
               last
           } 
       }

    my @wordsCopy = @words;
    my $reference = shift @wordsCopy;

    my ($reference, @wordsCopy) = @words;

       for ( @splitWord ) 
       { 
...
               last
           } 
       }