for my $g(sort keys %::) { 
  print "$g:\n"; 
  if(defined( *{$g}{SCALAR} ) ) { 
    print "  SCALAR: ", ${ *{$g}{SCALAR} }, "\n"; 
  } 
  if(defined( *{$g}{ARRAY} ) ) { 
    print "  ARRAY: ", join ", ", @{ *{$g}{ARRAY} }, "\n"; 
  } 
  if(defined( *{$g}{HASH}  ) ) { 
    print "  HASH: "; 
    while(my ($k, $v) = each %{ *{$g}{HASH} } ) { 
      print "$k => $v, " 
    } 
  } 
  print "\n" 
}