my %dic;

while (<DIC>) {
	
	chomp;

	my($columnA, $columnB) = split("\t", $_);

	$dic{$columnA} = $columnB;
}

##</code><code>##

word word	parola parola
(word)	(parola)