for ( @splitWord ) 
       { 
           if ( $_->[$position] ne $letter )
           { 
               $bolean = 0;
               last
           } 
       }