for $_ (%edict) {	# for entries with more than one keyword
		if ($edict{$count}{english} =~ /;/) {
			@foo = split (/; /, $edict{$count}{english});
				for $_ (@foo) {	
					$engdict[$no] = "\\textbf{".$foo[$_]."}";
					print $foo[1];
					$engdict[$no] = $engdict[$no]."\\textmd{$dict{$count}{puma}}";
					$engdict[$no] = $engdict[$no]."\\textit{$dict{$count}{ps}}";
					$no++;
				};
			delete $edict{$count};
		} else {
		$count++;
		};
	};