#!/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__