$dump= Data::Dumper->Dump([[\%hash,\@array,$scalar]],[qw(*vars)]);
my @vars=eval $dump;