push(@{$occurrences{$ID}}, "$term1");
push(@{$occurrences{$ID}}, "$term2");

##</code><code>##

foreach (keys (%occurrences)) {
  (@occurrences) = @{$occurrences{$_}}[
  # Do the code you posted...
} # end-foreach