perl -le " @f = 1 .. 100_000; for(reverse @f ){ $f=$_; $f==$#f and scalar<> } "

perl -le " @f = 1 .. 100_000; for( @f ){ $f=$_; $f==$#f and scalar<> } "