while (my %user = %{ $sth->fetchrow_hashref }) {
  ...
}