in reply to Compare all array values without a loop

use Quantum::Superpositions;

my $foobar = 'D';
my @array = 'A' .. 'D';

if ($foobar eq any( @array ) ) {
    print "Yay!\n";
} else {
    print "Boo\n";
}

[download]

In Perl6, the any and all functions will be keywords.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

In Section Seekers of Perl Wisdom