Help for this page
my %dic; while (<DIC>) { ... $dic{$columnA} = $columnB; }
word word parola parola (word) (parola)