my $a = Data::Dumper->new([{ 1 => 2 }])->Dump;
say $a;
$b = eval $a;
say $b;