my @d;
while (my $row = ora_fetch($cur)) {
    push @d, $row;
}