sub vergleichen
{
  my $x = 0;
  my $y = 0;
  my $vergl_index_1 = 0;
  my $vergl_index_2 = 0;
  while ($x<=$#datei_array)
  {
    while ($y<=$#{$datei_array[$x]})
    {
      my $zaehler_array_2 = $x+1;
      if ($datei_array[$x][$vergl_index_1] eq $datei_array[($x+1)][$vergl_index_2])
      {
        print "$vergl_index_1\n";
        push (@in_allen_arrays, $datei_array[$x][$vergl_index_1]);
        push (@in_allen_arrays, "\n");
        $vergl_index_1++;
        $vergl_index_2++;
      } 
      if ($datei_array[$x][$vergl_index_1] lt $datei_array[($x+1)][$vergl_index_2])
      {
        push (@nur_array_1, $datei_array[$x][$vergl_index_1]);
        push (@nur_array_1, "\n");
        $vergl_index_1++;
      }
      if ($datei_array[$x][$vergl_index_1] gt $datei_array[($x+1)][$vergl_index_2])
      {
        push (@nur_array_2, $datei_array[($x+1)][$vergl_index_2]);
        push (@nur_array_2, "\n");
        $vergl_index_2++;
      }
      $y++;
    }
    $x++;
  }
}