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