while (my $data = $sth->fetchrow_hashref) { # ...