use Class::Struct;
                struct artikel_info => {
                  anzahl => '$',
          name => '$',
          preis => '$',
        };
        my @myartikel;{
          for ($i=0; $i<$Artikel_count; $i++) {
                    $myartikel[$i] = artikel_info->new();
          }        
                }
        for ($i=0; $i<$Artikel_count; $i++) {
          if (($i+$j)%2 == 0) {$bgcolor=$light;} else {$bgcolor=$dark;}
          &print_Artikel($Artikel[$i],"",$File_no,$i,$myartikel[$i]);
        }   

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/\,/\./;