$i=2;
push(@erste_Zeile, "Lizenz\n");
my $first_line = <$fh>;
@first_col = (split(/,/,$first_line));
#print $first_col[4];
while ($i<40)
{
   if ($first_col[$i] !~ $wort) 
   {
    #print "$first_col[$i]\n"; 
    push(@erste_Zeile, "$first_col[$i] \n");
    }
$i++;
}
print "@erste_Zeile";