Help for this page
my %hash; my @array = qw( ABC DEF GHI ); $hash{$_}++ for (@array); # $_ is the loop variable.
my %hash; my @array = qw( ABC DEF GHI ); for my $key (@array) { $hash{$key}++ }
www.com | www.net | www.org
No recent polls found