Select Code to Download

use List::MoreUtils 'first_index';
my @array = qw( a b c d e f g h );
...
print "Found 'd' at $found_ix.\n";
__END__
output: Found 'd' at 3.