use DDS;
my %f;
Dump(\%f);
%f = (1,2);
Dump(\%f);
%f = (3,4);
Dump(\%f);
%f = (%f, 6,6 );
Dump(\%f);
__END__
$HASH1 = {};
$HASH1 = { 1 => 2 };
$HASH1 = { 3 => 4 };
$HASH1 = {
           3 => 4,
           6 => 6
         };