$ perl -Mstrict -Mwarnings -le '
> my $x = 0;
> print $x;
> for $x ( 1 .. 10 )
> {
>     my $y = rand;
>     print qq{$x -- $y};
>     last if $y > 0.85;
> }
> print $x;'
0
1 -- 0.820319728766666
2 -- 0.070987764836417
3 -- 0.632845876776752
4 -- 0.195428179899814
5 -- 0.847997411282524
6 -- 0.353572570937089
7 -- 0.865375393672675
0
$