Select Code to Download

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

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

=output
1: none