$recref->{t_agent} => $new_record{agent};
$recref->{t_left_trial} => $new_record{left_trial};
$recref->{t_used_trial} => $new_record{used_trial};
$recref->{t_left_product} => $new_record{left_product};
$recref->{t_used_product} => $new_record{used_product};
代入できなかった。あたりまえだ。*1