if(not grep { $_->price > 1000 } @product_list) {
    # do stuff
}

##</code><code>##

my @p = (0,2,4,5,2,5,7,7);
print "1: none\n" if not grep { $_ > 1000 } @p;
push @p, 1002;
print "2: none\n" if not grep { $_ > 1000 } @p;

=output
1: none