use strict;
use warnings;

use Data::Dumper;

my $hr = {};
print Dumper($hr);