You could use an index hash:

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

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

This is a win, for larger arrays, if you need to do multiple/many lookups while the array remains static.