foreach $word ( keys $termHash )
{
	$document =~ s/$word/$termHash{ $word }/g;
}