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