while (@werte=$STH->fetchow_array()){

push @res, [@werte];
}
$STH->finish();
$STH->disconnect;

my @data=@res;