sub loeschen() {
        my $f_content = $_[0];
	my $c_number = $_[1];