my @array = ( ... );

my %array_element_index;
@array_element_index{ @array } = (0 .. $#array);

my $i = $array_element_index{ $value_of_interest };