我如何回读Data :: Dumper的输出？

cpan install Data::Dumper

use Data::Dumper;

my $data = {
    name => "John",
    age => 30,
    city => "New York"
};

print Dumper($data);

$VAR1 = {
          'name' => 'John',
          'age' => 30,
          'city' => 'New York'
        };

my $dumper_output = '$VAR1 = {
          \'name\' => \'John\',
          \'age\' => 30,
          \'city\' => \'New York\'
        };';

my $data;
eval($dumper_output);
print Dumper($data);

$VAR1 = {
          'name' => 'John',
          'age' => 30,
          'city' => 'New York'
        };