my $pointer = \$database->{"2002"}->{"Gustav"}->{"General"}->{"Overview"};
${$pointer} = "nasdfaull";