Write to a CSV file from a hash perl

Question

I have a program that at the moment reads from FILE 1 looking like the one below and matching certain characters. e.g

Type, Fruit, Description, quanti