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