@sorted = map {$_->[1]}
  sort { $a[0] <=> $b->[0] }
  map { [$_[4],$_] } @unsorted;