while (my $row = $sth->fetchrow_hashref()) {
   push @rows, $row;
}

my @rs = $dbix->resultset('TestDB_1')->all;

foreach my $row (@rs) {

   # so ist es üblich, aber die gesamte Zeile wird 
    # kopiert, was ich nicht so toll finde
   push @rows1, { $row->get_columns };

   # so funktioniert es zwar, ist aber unsinnig,
   # da direkt auf das Objekt zugegriffen wird
   push @rows2, $row->{_column_data};

   # so haette ich es am liebsten... das immer eine
   # Referenz zurueck gegeben wird, aber das klappt
    # natürlich nicht, da get_columns %HASH zurück liefert
   push @rows3, $row->get_columns;
}