else {  
					$line2 =~ s/$word/$correct[$user]/;  
					$word = $error;  
					@words = grep { $_ ne $error } @words;  
				}