use Data::Dumper;
sub serialize {
  my $data = shift;  
  $data = Dumper($data);
  $data =~ s/\$VAR1 = //;
  return $data;
}

sub unserialize {
  my $serial_data = shift;
  eval "\$serial_data = $serial_data";
  return $serial_data;
}

# Daten sind bspw. in einem anonymen Array
my $daten = [1,13,42,"Perl","FooBar"];

my $SER_DATA = serialize($daten);
say "Serialisierte Daten: ",$SER_DATA;


# und Daten wieder zurück gewinnen
$daten = unserialize($SER_DATA);
say $daten->[2]; # sollte 42 ergeben