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