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

##</code><code>##

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