my @a = ('a'..'d','a'..'d');
my %a; @a{\(@a)} = 0..$#a;
my $x = 'b';
print "$x has an index of $a{\$x}\n";

b has an index of