our @newa;
my @a = 1..1000; 
foreach my $elem (@a) {
     if ($elem > 850) {
         push @newa, $elem;
     };    
     say "newa is: @newa\n";
 }    
 say "newa is:", @newa;