use Smart::Comments;
    for (my $j=500; $j>0; $j--) {   ### Compiling===[%]  done
        select undef, undef, undef, 0.01;
    }