use Storable qw(freeze thaw); 
my $dat = {...};
my $serialized = freeze($dat);
# hier in db speichern 
my $serialized_db = # aus db holen;
my $dat_org = thaw($serialized_db);