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 (473 votes), past polls