if ($_ ne "")   #wenn die zeile nicht leer ist          
{
   push(@erste_Zeile, "$_ , "); #füge an
   #print "@erste_Zeile";
   my @split = split(/,/, $_);
   print "$split[0]";
}