while ($i<40)
{
            
    if ($first_col[$i] !~ /^in use/)
    {
    print "$first_col[$i]\n";
    push(@erste_Zeile, "$first_col[$i] \t");
    }
            
    $i++;
            
}
print "@erste_Zeile";