sub variation3ep {
  my $idx = -1;
  my %hash = map(($_ => ++$idx), @array);
}