my (%base,%hash);

#Beispiel
$hash{Beispiel} = {lerche => 'grosser Baum'};
$hash{Hallo} = {Eibe => 'giftiger Baum'};

# Dummy
my $line = 'Test;;Beispiel';
my @info = split(/;;/,$line);

if(defined $info[1]){
   $base{key} = {$info[0] => $hash{$info[1]}};
}
else{
  $base{key} = {$info[0] => 0};
}

#Zugriff spaeter
print Dumper($base{key}->{$info[0]});