Help for this page

Select Code to Download


  1. or download this
    my $n=0;
    my %position = map {$_ => $n++} @list