Select Code to Download

sub occurences {                                                    
    my %h;          
...
    push @{$h{$_}}, $i++ for @_;
    return \%h;
}

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

$ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
...
                   7
                 ]
        };

$ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
...
                   4
                 ]
        };