Help for this page
my @list; while (<>) { ... } push(@list, \%hash); }
my %seen; for (@list) { for (keys %$_) { $seen{$_}++ } }; delete $seen{first}; delete $seen{date}; my @allkeys = ('first', 'date', sort keys %seen);
www.com | www.net | www.org
No recent polls found
