foreach my $schluessel ( keys %g_POIRead )
	{
		my $value = $g_POIRead{ $schluessel };
		print "Schluessel: ".$schluessel." := ".$value."\n";
		print "[0] ".$value[0]."\n";
		print "[1] ".$value[1]."\n";
		print "[2] ".$value[2]."\n";
		print "[3] ".$value[3]."\n";
	}#end-foreach