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

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