sub get_index (\@$) { 
  my ($a, $e) = @_; 
  my $i = 0; 
  for (@$a) { return $i if $e eq $_; $i++; } 
  return -1; 
}