my $ddump = Data::Dumper->new(
  [ { foo => 1, bar => 2 } ],   # data
  [ '*foobar' ],                # "variable name" of data
)->Dump();

say $ddump;

my %foobar;                     # hash with name as defined as "variable name"
eval $ddump;

say Data::Dumper->new( 
  [ \%foobar ], 
  [ '*clone' ],
)->Dump();