Select Code to Download

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;

#!/usr/bin/perl
use strict;
...

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