while (!$recordset->eof) {
     # code to set scalars equal to fields in $recordset
     $hashofrecordset{$id} = { foo => $foo, bar => $bar, baz => $baz, };

}