print MYFILE Dumper($data);

do 'MIFILE';
store $VAR1, 'MYFILE_2';

close (MYFILE);
close (MYFILE2);