# Warnung verhindern; wenn undef geliefert wird, wird eine Referenz auf
# einen leeren anonymen Hash dereferenziert.
my %cols = %{ $query_handle->fetchrow_hashref || {} };

# Wenn Hash leer, dann gebe Fehlermeldung aus
if ( ! %cols ) {
  print "No data found; Query error: ", $query_handle->err, "\n";
}