Select Code to Download

sub arrayindex {
    my $value = shift;
...

    return -1;
}

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