Select Code to Download

my $field_index = $position{$field};
if ("text" eq $type{$field}) {
...
    };
  }
}

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