@main::data = <FILE>;  
            my $count = 1;
            foreach my $a (@main::data) {$count++} # Anzahl der Zeilen ...
            foreach my $b ($count) {"@main::zeile$b" = split (/:/,"$main::data[$b]")}