$ perl -e 'my $v = 1;
> for ($i = 0; $i <=100; $i++) {
>     $i = 2* $i if defined $v and $i == 100;
> }
> print $i;'
201