#=> Win32::ODBC
    while( $db->FetchRow() ){

        my %data = $db->DataHash();
        push @daten, \%data;

    }

my @daten = map { { $_->DataHash() } } $db->FetchRow();

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @array;
my $inhalt;        # Variable VOR der Schleife deklariert
for (0 .. 9) {
    $inhalt = $_;
    push @array, \$inhalt;
}
print Dumper \@array;
_ _END_ _
$VAR1 = [
          \9,
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0]
        ];

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @array;
for (0 .. 9) {
    my $inhalt = $_;        # Variable IN der Schleife deklariert
    $inhalt = $_;
    push @array, \$inhalt;
}
print Dumper \@array;
_ _END_ _
$VAR1 = [
          \0,
          \1,
          \2,
          \3,
          \4,
          \5,
          \6,
          \7,
          \8,
          \9
        ];

while( $db->FetchRow() ){
    push @daten, { $db->DataHash() };
}

push @daten, { $db->DataHash() } while $db->FetchRow;

$sth->fetchall_arrayref({})