my $tho = tie %th, 'My::DB::User', {-data=>\%nu};
while (exists $th{'username'}) {
  print "username is: $th{'username'}\n";
  $tho->nextRow;
}