my %lookup = map { $array[$_] => $_ } 0 .. $#array;
my $index = $lookup{foo};