#!/usr/bin/perl -w

use List::MoreUtils;

my @foo=('a','b','c', 'd', 'e', 'f', 'g', 'h', 'i');

my $index = List::MoreUtils::first_index {$_ eq 'g'} @foo;

print ("G's index = $index\n");