Select Code to Download

    use List::Util 'first';

...
    # Simple enough to write inline:

    my $idx = first { $ary[$_] eq $target } 0 .. $#ary;