Help for this page

Select Code to Download


  1. or download this
    @array = ('A','B','C','D');
for (@array) {
  $hash{$_} = undef;
}
  2. or download this
    my @array = qw/A B C D/;
my %hash;
@hash{@array} = ();