Help for this page
my ($newdata, @newdataset, %newdatagroup) = @$thawed;
print "$newdata - [@newdataset]\n"; __END__ SCALAR(0x81b5d78) - [ARRAY(0x81b5eb0) HASH(0x812cc00)]