Then grep() would be a super choice:

sub get_index {
  my ($a, $e) = @_;
  my @idx = grep $a->[$_] eq $e, 0 .. $#$a;
  return wantarray ? @idx : $idx[0];
}
[download]

japhy -- Perl and Regex Hacker