foreach (@datei) {
  my @zeile = split(/, /, $_);
  if ($zeile[1] ne $alt){
    &tuwas;
    $alt = $zeile[1];
  }