Help for this page
Select Code to Download
Select
or
download this
my $n=0; my %position = map {$_ => $n++} @list