use strict ;
use warnings ;
use Data::Dumper ;

my %h = (
	a => 1,
	b => [ 1, 2, 3],
) ;

print Dumper(%h) ;

##</code><code>##

$VAR1 = 'b';
$VAR2 = [
          1,
          2,
          3
        ];
$VAR3 = 'a';
$VAR4 = 1;

##</code><code>##

use strict ;
use warnings ;
use Data::Dumper ;

my %h = (
	a => 1,
	b => [ 1, 2, 3],
) ;
print Dumper(\%h) ; # Note the additional \

##</code><code>##

$VAR1 = {
          'b' => [
                   1,
                   2,
                   3
                 ],
          'a' => 1
        };