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]); }