sub get_index {
  my ($a, $e) = @_;
  my @idx = grep $a->[$_] eq $e, 0 .. $#$a;
  return wantarray ? @idx : $idx[0];
}