my $a = [ $buffer ];
my $d = Data::Dumper->new([ $buffer , $a ]);
my $c = $d->Dump;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my $fancy_struct = {
  a => "aaah",
  b => "beeh",
};

my $dumper = Data::Dumper->new([$fancy_struct]);
$dumper->Purity(1);

my $serialized = $dumper->Dump;

print "Serialized form: $serialized";

my $VAR1;
eval $serialized || die;
my $new_fancy_object_clone = $VAR1;
print "a = $new_fancy_object_clone->{a}\n";