my $high = @$array - 1;
my $high = $#$array;

##</code><code>##

for my $try ( 0..$#$array ) {
    say "--> trying at index $try";
    if ( $array->[$try] eq $find ) {
        return $try;
    }
}