$i=0;
map {$_->[1]}
sort {$a->[0] cmp $b->[0]}
map {[$_, $i++]}
@list;