my $zeile=join "\t", ($bugnumber, $sender, $maintainer, $date, $package, $severity);

print WRITEFILE $zeile;