use Data::Dumper;
 my $var = {A => 1}; 
 print Dumper $var;

##</code><code>##

$VAR1 = {
   'A' => 1
   };