sub datenbank_suche {
    my ($called_by, $scrl, $suchbegriff) = @_;
    ...