use strict; use warnings; use Data::Dumper; my $a; %$a=(a=>1,b=>2); print Dumper($a); #### $VAR1 = { 'a' => 1, 'b' => 2 }; #### $a={a=>1,b=>2};