sub print_Artikel {
    my $arrayref = shift;
    my $schalter = shift;
    my $file_no = shift;
    my $i = shift;
	my $newref = shift;
    my @Artikel = @$arrayref;
	my %myartikel = $newref;
	#%myartikel->anzahl("test");
	print "<!--$arrayref -->\n";
	#print "<!--$myartikel",$myartikel->name," -->\n";
	
	print "<!--$schalter -->\n";
	print "<!--$file_no -->\n";
	print "<!--$i  -->\n";
	print "<!-- $myartikel[0] -->";
	print "<!-- $newref->name -->\n";
	print "<!--geht2-->";
    $Artikel[3] =~ s/\,/\./;