$tho = tie %th, 'My::DB::User', {-userid=>'25'};