Как получить индекс элемента в массиве?

Вот способ сделать это после версии 5.10 с дополнительным преимуществом определения количества индексов, соответствующих заданному значению.

my @matches = grep { $array[$_] ~~ $element } 0 .. $#array;

Если все элементы гарантированно уникальны или интересует только первый индекс:

my ($index) = grep { $array[$_] ~~ $element } 0 .. $#array;

Вы можете написать функцию для этого:

sub array_search {
    my ($arr, $elem) = @_;
    my $idx;
    for my $i (0..$#$arr) {
        if ($arr->[$i] eq $elem) {
            $idx = $i;
            last;
        }
    }
    return $idx;            
}

Будет возвращен индекс первого подходящего элемента или undef.

Вот решение autobox :

use autobox::Core;

my @things = qw/blue black green red green yellow/;

my $first_green = @things->first_index( sub{ $_[0] eq 'green' } ); # code block
my $last_green  = @things->last_index ( qr/^green$/ );             # or regex

say $first_green;    # => 2
say $last_green;     # => 4