@types_sorted = sort { $user_types{$a}[1] <=>  $user_types{$b}[1] } keys %user_types;

for $i (0 .. $#types_sorted) {
   make options list;
}