while (my ($word, $replacement) = each %{$termHash})
{
    $document =~ s/$word/$replacement/g;
}