Help for this page
while (<>) { my ($f) = (split)[6]; $count{$f}++; }
while (<>) { $count{(split)[6]}++; }
$count{(split)[6]}++ while <>;
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (429 votes), past polls
