$href = \%drw;
foreach ( keys %$href) {
  print "primaryKey = $_\n";
  foreach ( keys %{$href->{$_}}) { 
	print "\tsubKey = $_\n";
  }
}

##</code><code>##

$href = \%drw;
foreach ( keys %$href) {
  print "primaryKey = $_\n";
  foreach ( values %{$href->{$_}}) { 
	print "\tsubKeyValue = $_\n";
  }
}