Help for this page
@array = ('A','B','C','D'); for (@array) { $hash{$_} = undef; }
my @array = qw/A B C D/; my %hash; @hash{@array} = ();
www.com | www.net | www.org
No recent polls found