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{'WasAuchImmerIn$hashStehenMagEsIstKeinGuterBezeichnerFuerEinSkalar'} = {$info[0] => $info[1]};
}
else{
  $base{'WasAuchImmerIn$hashStehenMagEsIstKeinGuterBezeichnerFuerEinSkalar'} = {$info[0] => 0};
}

#Zugriff spaeter
print Dumper($hash{$base{'WasAuchImmerIn$hashStehenMagEsIstKeinGuterBezeichnerFuerEinSkalar'}->{$info[0]}});