#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

open(my $filemanagerFH, "<", "coresys/incoming.csv") or die "ERROR: Unable to open the IC-file: $!";

my %hoh; # Meine verschachtelte Datenstruktur

while (my $zeile = <$filemanagerFH>) {

	chomp $zeile;

	my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey) = split(/;/,$zeile);
	
	$hoh{$DB_IPAdresse} = {
		customstorycode      => $DB_customstorycode
		, headline           => $DB_headline
		, benutzergeschichte => $DB_benutzergeschichte
		, zaehler            => $DB_zaehler
		, internetpost       => $DB_internetpost
		, tbgelesen          => $DB_tbgelesen
		, Monatstag          => $DB_Monatstag
		, Monat              => $DB_Monat
		, Jahr               => $DB_Jahr
		, Stunden            => $DB_Stunden
		, Minuten            => $DB_Minuten
		, Sekunden           => $DB_Sekunden
		, clientdatakey      => $DB_clientdatakey
	};
	
	print Dumper \%hoh; # Wie sieht meine Datenstruktur aus?
	
	print $hoh{$DB_IPAdresse}->{benutzergeschichte}; # Ein Beispielzugriff
	
}