Help for this page
(my ($s, $a, $c, $r) = split /[,\t]/) < 4 and die;
die if not defined $r;
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (397 votes), past polls