How to print a hash of hashes for debugging

foreach my $k (keys %user_list) {
   print "$k: \n";
   foreach my $u (keys %{$user_list{$k}}) {
     print "\t$u: ".$user_list{$k}{$u}."n";
  }
  print "\n\n";
}