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