my $kap = kapitel();
foreach (sort keys %$kap) {
   print %{$kap->{$_}->{name}}, "\n";
}
	


sub kapitel {

   # Daten aus der DB Lesen
	
    while (my @row=$sth->fetchrow_array()){
			
        $rec = {};
		$rec->{key} = $row[0];
		$rec->{name} = $row[1];
		$rec->{sort} = $row[2];
		$rec->{status} = $row[3];
	
		$inRec{ $rec->{key} } = $rec;
	}
	
	return \%inRec;

} # END kapitel