sub ausgabe()
{
	      print $ausgabedatei "ID:			@stat[0]\n";
	      print $ausgabedatei "Vorgangsart:		@stat[1]		@ausgabe[0]\n";
	      print $ausgabedatei "Landesdirekt:		@stat[2]		@ausgabe[1]\n";
	      print $ausgabedatei "VNR:			@stat[3]		@ausgabe[2]\n";
	      print $ausgabedatei "Schadensjahr:		@stat[4]		@ausgabe[3]\n";
	      print $ausgabedatei "SNR:			@stat[5]		@ausgabe[4]\n";
	      print $ausgabedatei "__________________________________________________________________\n\n";
}