$variable => \$variable,

##</code><code>##

use Data::Dumper;
$Data::Dumper::Useqq = 1;
my $x = {
   ...
};
print Dumper $x;