my (@array, %hash);

push @{$hash{$array[$_]}}, $_ for 0..$#array;

for(keys %hash) {
    print "Element: $_\nOccurences: ", scalar @{$hash{$_}}, "\n";
    print("At indices: ", join(",", @{$hash{$_}}), "\n");
}