#!/usr/bin/perl-w

@array = ('verschiedene ueberschriften');
@_daten = ("");    # Speicher fuer alle Datensaetze

@matrix = (\@array,\@_daten);  #stopf die beiden arrays in ein array

$i = 0;
open(DATEN, "< blubb.txt")   or die "Datei nicht gefunden\n";

while(<DATEN>)              # Kommabegrenzte Datei einlesen
 {
  if($i == 0)                  # erste Zeile der Datei einlesen
   {
    $Felder = $_;              # Feldnamen ermitteln
   }
  else
   {
    $_daten[$i] = $_;        # ab zweiter Zeile in @Adressen einlesen
   }
 $i++;                        # Datensatzaehler erhoehen
 }
close(DATEN);
$Anzahl = $i - 1;              # Anzahl Datensaetze merken
chop($Felder);


for (@matrix)
{
$_ =~ s/\s//g for(@matrix);
}

print "@{$matrix[0]}\n";
print "@{$matrix[1]}\n";


open(NEUEDATEN,">neuedaten.txt");

open(NEUEDATEN,"<neuedaten.txt");

print NEUEDATEN "";
close (NEUEDATEN);
#print $Anzahl, "Datensaetze geschrieben\n";