my @array = (qw/eins zwei drei/);
my %index;
my $i = 0;
$index{$_} = $i++ for @array;

print "Index von zwei: ", $index{'zwei'}, "\n";