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;

##</code><code>##

#!/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;