don't forget map and sort beside split and grep. ;)

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