$query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount)
VALUES ($uid, (SELECT c.id FROM chart c
WHERE c.accno = '$accno'),
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount)
VALUES ($uid, (SELECT c.id FROM chart c
WHERE c.accno = '$accno'),