You can also use Tie::CSV_File.

Then you can take care of each field value such as removing the comma inside a field.