) { chomp; my($columnA, $columnB) = split("\t", $_); $glossary{$columnA} = $columnB; }