sub each_item
{
    my $test = shift ;
    foreach ( @_ ) { return 0 unless ( eval $test ) }
    return 1 ;
}

if ( each_item '$_->price <= 1000', @product_list ) { #... }