while(my $zeile = <FILEMANAGER>)
{
  # Zeilenumbruch entfernen
  chomp($zeile);

  my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey,) = split(/;/,$zeile);

  # nun kann man alle werte in @FileData speichern.
  # perl kann auch mit mehrdimensionalen Arrays umgehen
  # hier wird ein zweidimensionales benutzt:
  my $pos=@FileData;
  $FileData[$pos][0]  = $DB_customstorycode;
  $FileData[$pos][1]  = $DB_headline;
  $FileData[$pos][2]  = $DB_benutzergeschichte;
  $FileData[$pos][3]  = $DB_zaehler;
  $FileData[$pos][4]  = $DB_internetpost;
  $FileData[$pos][5]  = $DB_tbgelesen;
  $FileData[$pos][6]  = $DB_IPAdresse;
  $FileData[$pos][7]  = $DB_Monatstag;
  $FileData[$pos][8]  = $DB_Monat;
  $FileData[$pos][9]  = $DB_Jahr;
  $FileData[$pos][10] = $DB_Stunden;
  $FileData[$pos][11] = $DB_Minuten;
  $FileData[$pos][12] = $DB_Sekunden;
  $FileData[$pos][13] = $DB_clientdatakey;
}