my $var = {A => 1}; 
my $string = "$var";
print Dumper $string;