my $n=0;
my %position = map {$_ => $n++} @list