Select Code to Download

sub addTo()
{
...
  #I AM STUCK HERE -----
  $current = $data;
}

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

$current->{$key} = $data;