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;
}

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

  #die Zeile splitten und die Einzelwerte in @data speichern
  my @data=split(/;/,$zeile);

  #Das Array @data als Element in das Array @FileData schreiben.
  push(@FileData,\@data);
}

while(<FILEMANAGER>)
{
  # Zeilenumbruch entfernen
  # wenn nicht angeben wurde wird "$_" benutzt
  chomp;

  #die Zeile splitten und die Einzelwerte in @data speichern
  my @data=split(/;/,$_);

  #Das Array @data als Element in das Array @FileData schreiben.
  push(@FileData,\@data);
}

while(<FILEMANAGER>)
{
  # Zeilenumbruch entfernen
  # wenn nicht angeben wurde wird "$_" benutzt
  chomp;

  #Das Array @data als Element in das Array @FileData schreiben.
  push(@FileData,[ split(/;/,$_) ]);
}

chomp and push(@FileData,[ split(/;/,$_) ]) while(<FILEMANAGER>);

my $gesuchte_ip='192.168.111.111';
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);
for my $eintrag (@FileData)
{
  my @data=@$eintrag;
  if($data[6] eq $gesuchte_ip)
  {
    ($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)=@data;
    last;
  }
}

my $gesuchte_ip='192.168.111.111';
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);
for( my $pos=0; $pos<@FileData; $pos++ )
{
  if( $data[$pos][6] eq $gesuchte_ip )
  {
    $DB_customstorycode    = $data[$pos][0];
    $DB_headline           = $data[$pos][1];
    $DB_benutzergeschichte = $data[$pos][2];
    $DB_zaehler            = $data[$pos][3];
    $DB_internetpost       = $data[$pos][4];
    $DB_tbgelesen          = $data[$pos][5];
    $DB_IPAdresse          = $data[$pos][6];
    $DB_Monatstag          = $data[$pos][7];
    $DB_Monat              = $data[$pos][8];
    $DB_Jahr               = $data[$pos][9];
    $DB_Stunden            = $data[$pos][10];
    $DB_Minuten            = $data[$pos][11];
    $DB_Sekunden           = $data[$pos][12];
    $DB_clientdatakey      = $data[$pos][13];

    last;
  }
}