my @ary = (...);
my $index;

for $index (0 .. $#ary) { last if $ary[$index] eq $val; }

print "Index = $index\n";