- my @names = map { $_->[1] }
- sort { $a->[0] <=> $b->[0] }
- map { /Object-1-CF-(\d+)/ ? [ $1 => $_ ] : () }
- grep defined, map $_->name, $m->current_form->inputs;
+ my @names = sort grep defined,
+ $m->current_form->find_input('AddCustomField')->possible_values;