my @sorted_list
  = map {$_[1]}
      sort $sort_routine
        map {[[split $_, "|"], $_]} @list;