sub GetArray { my($this, $stmt) = @_;
    unless($this->{Cnn}) {
        Win32::MsgBox('Keine Verbindung!');
        return undef;
    }
    my @retArr;
    my $rst = $this->{Cnn}->Execute($stmt);
    unless($rst->EOF and $rst->BOF) {

        $rst->MoveFirst;

        while(not $rst->EOF) {

            push(@retArr, [$rst->Fields(0)->{value}]);
            
            for my $_sp (0..$rst->Fields->{count}) {
                
                push(@{$retArr[$_sp]}, $rst->Fields($_sp)->{value});
            }
            $rst->MoveNext;
        }
    }
    return \@retArr;
}

$VAR1 = [
                [
                  1
                ],
                [
                  2
                ]
              ];

my $arrRef = $adodb->GetArray('SELECT ID FROM Tabelle1');
print Dumper($arrRef);
print $arrRef->[0]->[0],"\n";

push(@{$retArr[$_sp]}, $rst->Fields($_sp)->{value});

push(@{$retArr->[$_sp]}, $rst->Fields($_sp)->{value});

push($retArr[$_sp], $rst->Fields($_sp)->{value});