for ( @wordsCopy ) 
       { 
           if ( substr( $_, $position, 1 ) ne $letter )
           { 
               $common_letters[ $position ] = $letter; 
               last
           } 
       }