sub arrayindex {
    my $value = shift;

    for (0..$#_) {
        return $_ if $_[$_] eq $value;
    }

    return -1;
}
[download]

my $index;
for $index (0..$#values) {
    last if $values[$index] eq $value;
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.