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