sub save_state
{
 my %save_hash = %main_hash;
 my @save_info;
 
 push(@save_info,\%save_hash);
 push(@save_info,\$aVar);
 # etc. for all vars to save
 
 push(@save_stack,\@save_info);
}