falsche ausgabe bei forschleife

[bobby]

Hi
Ich habe mit dem folgendem Code ein Problem!!
Was der Code ausgeben soll:
  Er soll ein csv-File beschreiben (öffnen mit MS excel) und die Kalenderwochen aufrufen, untereinander schreiben. Da bei manchen IP's keine Eintäge vorhanden sind, habe ich eine for-schleife eingetragen.

Was im cvsFile steht ist nicht erwartet, es wird, wenn mehrere Einträge vorhanden sind, der nächste Eintrag verschoben.

Kann mir jemand helfen??

#write csv-file######
open (PRINT , ">$csv_print") || die "$!";
#print head
print PRINT "GOOGLE-STATISTIK\n\n";
print PRINT "$file_list\n";
print PRINT "Total;IP-Address;USER";
for ($kwweekcnt=1; $kwweekcnt<=$kwyear; ++$kwweekcnt){
    print PRINT ";KW: $kwweekcnt";
}
print PRINT "\n";
#print data
foreach $count_list (keys %ip_count) {
    print PRINT "\n$ip_count{$count_list}{total};$count_list;";
    print PRINT "$ip_names{$count_list};";
    %weekcnt = %{$ip_count{$count_list}{week}};
#Print KW-counts
   #forschleife, zum untereinanderschreiben der Kalenderwochen
   for($kwweekcnt=1; $kwweekcnt<=$kwyear; ++$kwweekcnt) {
        foreach $week (keys %weekcnt) {
            if($week == $kwweekcnt) {
                print PRINT "$weekcnt{$week}";
            }
            print PRINT ";";   #Um leere Spalten zu erzeugen
        }
    }
}