perl -E 'say q<Nope> unless grep { $_ eq $c++ } 1..10; say $c'
Nope
10