use Data::Dumper; # am beginn des Programms!
...
...
...
my $DEBUG_ROW = 1;
while ($sth->fetchrow_array) {
 $DEBUG_ROW and say Dumper(\%row); 
 ... 
 #Hier speicher ich die Daten in einem Hash, weil sie später in ein JSON-Objekt ausgegeben werden sollen
}