###
sub datenbank_suche {
###
	my $scrl = shift;	
	my $hash = shift;
	my $sucher = $hash->get;

        ....
}