Help for this page
$hash{$a}->[$b]->[$c] = $d;
sub save_state { ... push(@save_stack,\@save_info); }