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;