Why don't you simply:

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

Output:

$VAR1 = {
   'A' => 1
   };
[download]