my %dic;

while (<DIC>) {
	
	chomp;

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

	$dic{$columnA} = $columnB;
}