Select Code to Download

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

sub get_index (\@$) {
  my ($a, $e) = @_;
...
  }
  return -1;
}