while (my ($ans_rid, $ans_qcn, $ans_loc) = $sth->fetchrow_array ()) {
    my ($ansb_cktid, $ansb_mcn, $ansb_soc) = unpack "A3 A3 A3", $ans_l
+oc;