sub arrayindex {
    my $value = shift;

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

    return -1;
}

##</code><code>##

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