sub occurences { my ($i, %h) = 0; push @{$h{$_}}, $i++ for @_; \%h }