local our @common_letters;
    local our @wordsCopy = @words;
    my $reference = shift @wordsCopy;

    $reference =~ /(.)(?{        
       ...
    })/gx;