Сортировка по части поля как в перле по вычисляемому полю

например в перле можно отсортировать по 2 му слову
@temp = map ([/\w+\s(\w+)/,$_]) @fields;
@sorted_temp = sort {$a=>[0]<=>$b->[0]} @temp;
@sorted_fields = map ($_->[1])@sorted_temp;

как бы это изобразить в такой конструкции

^context[users;
^load[data;$load_cfg]


^var[drive;]
^var[sort;]

^ifdef[^form[SORT];
^var[sort;^form[SORT]];
^var[sort;1]
]
^eq[^var[sort];2;
^var[drive;+D]
;
^var[drive;+A]
]

^sort[^item[^var[sort]];^var[drive]]


^menu[
^macro[row.layout1;^item[1];^item[2];^item[3];^item[4]]
]

]