$hash = 'neu';
 @line = split(';;', $_);
                        print "One: $line[0], Two: $line[1]\n";
                        chomp($line[0]); chomp($line[1]);
                        if ( defined($line[1]) ) {
                                print "Adding to Base($hash): $line[0] mit $line[1]\n";
                                $base{$hash} = {$line[0] => $line[1]};
                        } else {
                                $base{$hash} = {$line[0] => 0};
                        }