http://www.perlmonks.org?node_id=884468


in reply to Querying from a file

Y can read all the file and add

$sql = ... where i.name = m.code, m.code like (" .'$ref,'

$sql .= '$ref,',

and at the end replace the last ',' with ')'