my $sth = $self->{'orcl'}->getdatacursor("PACKAGE.Prozedur"); #Ein bereits bestehendes Modul für den Datenabruf. my %row; $sth->bind_columns( \( @row{ @{$sth->{NAME_lc} } } )); my @colnames = @{$sth->{NAME_lc}}; #Spaltennamen my $size = @colnames; #Anzahl der Spalten while ($sth->fetchrow_array) { #Hier speicher ich die Daten in einem Hash, weil sie später in ein JSON-Objekt ausgegeben werden sollen }