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