perl -wMstrict -e "my @repo = qw(foo bar qux bar zot); my %repo_index; $repo_index{$repo[$_]} = $_ for reverse 0 .. $#repo; print $repo_index{bar};" 1