#!perl -l
use Benchmark qw(cmpthese);
use List::Util 'first';


sub find_first_index_dmq {
  my $target=shift;
  push @_,$target;
  my $i=0;
  $i++ while $_[$i] ne $target;
  return $i==$#_ ? undef : $i
}

sub find_first_index_ihb {   
  my $target=shift;
  first { $_[$_] eq $target } 0 .. $#_ 
}


#                                      0 1 2 3 4 5 6 7 8 9 0 1
print 'ihb:',find_first_index_ihb(qw(a b c d e f g h a b c d e));

#                                      0 1 2 3 4 5 6 7 8 9 0 1
print 'ihb:',find_first_index_ihb(qw(a b c d e f g h b c d e));


#                                      0 1 2 3 4 5 6 7 8 9 0 1
print 'dmq:',find_first_index_dmq(qw(a b c d e f g h a b c d e));

#                                      0 1 2 3 4 5 6 7 8 9 0 1
print 'dmq:',find_first_index_dmq(qw(a b c d e f g h b c d e));

cmpthese -1,{  
               dmq_hit=>'find_first_index_dmq(qw(a b c d e f g h a b c
+ d e));',
               dmq_zip=>'find_first_index_dmq(qw(a b c d e f g h q b c
+ d e));',
               ihb_hit=>'find_first_index_ihb(qw(a b c d e f g h a b c
+ d e));',
               ihb_zip=>'find_first_index_ihb(qw(a b c d e f g h q b c
+ d e));',
             };

__END__
[download]