my @newb =  grep $_ > 850, @b, @c, @d;