output(\%hash);

sub output {
   my $hash = shift;
   foreach my $key (sort keys %$hash) {
      if (ref($hash->{$key})) {
         output($hash->{$key}, @_, $key);
         next;
      }   
      print join(' : ', @_, $key, $hash->{$key}), "\n";
   }   
}