my $i = 0;
    $i = ++ $i;