$ perl tst.pl SELECT trip_id, rate, expires FROM trip_exchange_rates WHERE trip_id = ? INSERT INTO trip_exchange_rates (rate, currency, trip_id, expires) VALUES (?, ?, ?, ?) SELECT trip_id, engine FROM trip_engine WHERE trip_id = ? INSERT INTO trip_engine (trip_id, engine) VALUES (?, ?)