use strict;
use warnings;

my @array=({key1=>1,key2=>2},{key1=>1,key2=>3},{key1=>1,key2=>5});
print "Yes!\n" unless grep { $_->{key1} != 1 } @array;
[download]

Or, if the array is large, List::Util's first is even a better friend:

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw( first );

my @array=({key1=>1,key2=>2},{key1=>1,key2=>3},{key1=>1,key2=>5});
print "Yes!\n" unless first { $_->{key1} != 1 } @array;
[download]

Update: Ok, I agree with holli, grep and (probably) first are loops, but not explicit loops, that was what maybe he was asking for. When I think in loops, I think in for, while and friends, and I see map, grep... more as "list transformers".

grep is a loop. And I strongly assume (without looking at the code) that List::Util uses a loop internally too.


holli, /regexed monk/

Let's not be too pedantic. Unless there's some kind of obfuscation/puzzle involved, usually when people say things about not wanting a loop, they usually mean they don't want to break up their code by a loop statement. I think grep in an expression is highly likely to be the desired answer.

my $some_are_different = grep { $_->{key1} != 1 } @array;
[download]

Would you concider this looping?

#!/usr/bin/perl
use strict;

my @array = ({key1=>1, key2=>2, key3=>3}, {key1=>1, key2=>2, key3=>3},
+ {key1=>1, key2=>2, key3=>3} );
my $amount = scalar(@array);

if (!$array[0 ..  $amount]->{key1}) {
    print "no\n"
}
[download]

Update holli is right. bah. this code just checks if key1 of the second element of the array is false. There is no loop.
"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

No. Your code checks if the value under "key1" of the second hashref in the array is false.

Consider:

#!/usr/bin/perl
use strict;

my @array = 
(
    {key1=>0, key2=>2, key3=>3}, 
    {key1=>1, key2=>2, key3=>3}, 
    {key1=>0, key2=>2, key3=>3} 
);

my $amount = scalar(@array);

if (!$array[0..$amount]->{key1}) 
{
    print "no\n"
}
[download]

which should print "no" but does not, and

#!/usr/bin/perl

use strict;

my @array = 
(
    {key1=>0, key2=>2, key3=>3}, 
    {key1=>1, key2=>2, key3=>3}, 
    {key1=>0, key2=>2, key3=>3} 
);

my $amount = scalar(@array);

if (!$array[0..$amount]->{key1}) 
{
    print "no\n"
}
[download]

which should not print "no" but does.


holli, /regexed monk/