sub loeschen {
        my ($f_content, $c_number) = @_;