my @list2 =
map {$_[0]}
sort {$b[1] <=> $a[1]}
map {[$_,rand]}
@list;