#now I display the solutions and user can choose one of them
				print "These are the correction of word $word\n";
				for (my $c = 0; $c < @correct; $c++) {	
					print "$c. : $correct[$c]\n";
					}
				
				
				print "Are you interested on one of this solution? Type the number or type 'exit'.\n";
				
				$user = <STDIN>;
				chomp ($user);
				
				if ("$user" eq 'exit') {
					print "Next word.\n";
					}
				else {
					$line2 =~ s/$word/$correct[$user]/;
					$word = $error;
					@words = grep { $_ ne $error } @words;
				}
			}
		}
		print T2 "$line2 \n";
	}