Help for this page
open in, shift @ARGV; for(<in>){
open in, shift @ARGV; while (<in>){
open my $in, '<', shift @ARGV; while (my $line = <$in>){
my @temp_list=<in>; for(@temp_list){
0 1 2 3 4 5 6 7
Results (678 votes), past polls