my $condNum = 0;
for $condNum ( 1 .. 10 ) {
    forceSituation( $conditions[condNum] );
    my $result = measureSituation();
    ...;
    last if $result->is_error();
    ...
}
datalog( value => $condNum, ...);
...

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"use constant N_MAX => 10;
 ;;
 my $nCond;
 ;;
 CONDITION:
 for ($nCond = 1;  $nCond <= N_MAX;  ++$nCond) {
   print $nCond;
   last CONDITION if $nCond >= 3;
   }
 ;;
 print qq{only made it to condition $nCond} if $nCond < N_MAX;
"
1
2
3
only made it to condition 3