while (my $row = $sth->fetchrow_hashref) {
   print Dumper $row;
    next;
}