sub bycreatetime
      {
             return $nodes{$a}{createtime}
                  - $nodes{$b}{createtime};
      }
      
      foreach $node (sort { bycreatetime } keys %nodes)
      {
            # ...
      }