while (my $data = $sth_suchen->fetchrow_hashref())    {
  # hashslice der felder @order, und {} aussen herum -> hashreferenz
  push (@daten, { @hash{@order} } );
}