my $i;
$i = 1 for $cond;