Maybe I'm being dense this morning but won't this do it:

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

Although I would argue that your code is making an unnecessary copy of an unnecessary copy. So hopefully you aren't optimizing for performance... just programmer flexibility.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.