my $lower_bound = 850;
 my $upper_bound = 1000;
 my @newa = ($lower_bound+1 .. $upper_bound);