in reply to Join files using perl

Use Text::CSV or Text::xSV

Examples at