Or even more directly

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

HTH

_________
broquaint