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

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

my @data=(
[$res[0],[$res[3],[$res[6],
[$res[1],[$res[4],[$res[7],
[$res[2],[$res[5],[$res[8]
);