use Data::Dumper;

my %hash = (
      'hi' => ('hello' => 'all'),
      'bye' => ('later' => 'gone')
      );

print Dumper \%hash;
__END__
$VAR1 = {
          'hi' => 'hello',
          'later' => 'gone',
          'all' => 'bye'
        };

##</code><code>##

my %hash = (
      'hi' => {'hello' => 'all'},
      'bye' => {'later' => 'gone'}
      );