my $cgi = CGI->new;
	my $kunden_id = $cgi->param('id_kunde');
        verbinden_mysql();
	my @system_ids = hole_systemids_uber_kunden_id($kunden_id);
	#&gib_kunden_tabelle_aus($kunden_id);
	#if (@system_ids) {
   	#&gib_system_tabelle_aus(@system_ids);
	#};
	
	sub hole_systemids_uber_kunden_id { 
	$kunden_id = @_;
	$query_kdsys = "select ID from tb_systeme where ID='@_'";
	$statement = $dbh->prepare($query_kdsys);
	$statement->execute();
	@data = $statement->fetchrow_array();
	return @data;
        }

print @system_ids;