LoL
Without code it's impossible to handle it I know. This is my code.
use diagnostics;
use warnings;
my ($file_dictionary, $word, $line, $line1, $alph, $elt, $w, $transposition, $letter1, $letter2);
my (@word, @altered_word, @filedictionary, @filetext, @dictionary, @addition, @replacement...