%words = ();

while (<>) {
	chop;
	($word, $def) = split /: */;
	$words{$word} = $def;
}