Help for this page
use strict; use warnings; ... print "Final results:\n"; printf "%10s : %d\n", $_, $votes{lc $_}[0] for @candidates;
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (397 votes), past polls
