my @array = qw( your array here );
my $search = "array";

my %index;
@index{@array} = (0..$#array);
my $index = $index{$search};
print $index, "\n";