Select Code to Download

use DBI;

...

    # use one of the DBI methods for getting the query results...
}

"select ... from ... where i.name = m.code and m.code in (select ref f
+rom tmp)"

my %ref;
open( R, "<", $datafile_name );
...

    # do something ...
}