sub ReportErstellen { my $file = shift; my $title = shift; my $osm_data = shift; my %poi_id_ref = shift; my %poi_name_ref = shift; my %conf_ref = shift;