# daten rausschreiben
   map { print $fhout "$_$/" } @output;