my %occurrences;
push @{$occurrences{$sequence[$_]}}, $numbers[$_]
   foreach (0 .. $#sequence);