#!/usr/bin/perl
use strict;
use warnings;

use debug;

my %Gblhas = ( 'ABC' => 1, 'DEF' => [4, { 'JKL' => 7, 'MNO' => 8, 'PQR' => 9}, 6], 'GHI' => 3 );

&debug::predebugdumplist("\%Gblhas", \%Gblhas);

exit;

__END__

##</code><code>##

S:\Steve\Dev\datadumper>perl datadumper-oldway.pl
%Gblhas (S:/Steve/Perl/debug.pm:887(990)):
    [ABC] => [1]
    [DEF] => [ARRAY(0x4ad6b0)]
        [4]
        [HASH(0x4ad4b8)]
            [JKL] => [7]
            [MNO] => [8]
            [PQR] => [9]
        [6]
    [GHI] => [3]

S:\Steve\Dev\datadumper>