my $stored = Data::Dumper->Dump( [ $data, \@dataset, \%datagroup ],
                                 [ qw(data *dataset   *datagroup )] );

print $stored;

eval $stored;