perl -wMstrict
-e "my @repo = qw(foo bar qux bar bar zot);  my %repo_indices;
push @{ $repo_indices{$repo[$_]} }, $_ for 0 .. $#repo;
print qq(@{ $repo_indices{bar} });"
1 3 4