while (($r, $v) = get_pair()) {
   $ref{$r}=$r; $val{$r}=$v;
}