my @res = qw(DHL K_N Hellmann);
while (my @werte = $sth->fetchrow_array()) {
   push @res, [@werte];
}