my @v = grep{my $x = $_; not grep{$x == $_}(100..200)}(1..1000);
my @z = grep{my $x = $_; not grep{$x == $_}(170..350)}@v;