<code>
# code => [ 'label', 'order' ]
%user_types =(
     037 => [ 'member', '1' ],
     165 => [ 'public', '2' ],
     022 => [ 'staff', '3' ],
     683 => [ 'babe', '4' ],
     001 => [ 'old fart', '5' ]
);

##</code><code>##

@types_sorted = sort { $user_types{$a}[1] <=>  $user_types{$b}[1] } keys %user_types;

for $i (0 .. $#types_sorted) {
   make options list;
}