$result = $dbh->prepare ( "SELECT  katid, katname from kategorie" ) or die "Vorbereitung nicht durchfuehrbar!\n";

$result->execute() or die "Abfrage nicht ausfuehrbar -kategorie!\n";

while ( $zeile = $result->fetchrow_arrayref )
{
    $kategoriehash{$zeile->[0]} = $zeile->[1];
}