Help for this page
my @lines = split /^/, $records; shift @lines; # remove first line print @lines; # print the rest
my @lines = split /^/, $records; print @lines[1..$#lines]; # print line 1 onwards removing line 0
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (516 votes), past polls
