my (%sort_method) = (
            createtime => \&bycreatetime,
            createuser => \&bycreateuser, # For example
      );

      foreach $node (sort $sort_method{$sort_field} keys %nodes)
      {
            # ...
      }