sub arrayindex {
    my $value = shift;

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

    return -1;
}