in reply to extracting data from file
Use Text::CSV or Text::xSV
Examples at
Text::CSV
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (453 votes), past polls