my @a = 1..1000; 
my @newa = grep{$_>850}@a;