my @array = qw/a b c d/;
my %indexOf = map { $array[$_] => $_} 0..$#array;
printf "%s\n",  ( $indexOf{c} == 2 ) ? "ok" : "bad";