Ok, got it. What do you think about this solution?

                #now I display the solutions and user can choose one o
+f 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? Typ
+e 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";
    }
[download]