foreach (@datei) {
   next if /^\s*(?:[#;]|$)/;
   chomp; my @work = split /\s+/;
}