Re^2: Compare all array values without a loop

[Crian]

Instead of

@array = ('A','B','C','D');
for (@array) {
  $hash{$_} = undef;
}

you can use

my @array = qw/A B C D/;
my %hash;
@hash{@array} = ();