sub get_orderdarray{
  my ($statement, $order, @param) = @_;  
  
  my $sth = $dbh->prepare($statement);
  $sth->execute(@param) or die failLog( $dbh->errstr );
  my @erg;
  while (my $zeile = $sth->fetchrow_hashyref())
  {
    my @ret;
    push(@ret,[$_,$zeile->{$_}]) for(@$order);
    push(@erg,\@ret);
  }
  $sth->finish;
  return @erg; 
}