my @b = 1..1000;
my @c = 900..1000;
my @d = 910..1000;
my @newb =  grep {$_>850}(@b&&@c&&@d);