// UNTESTED
    for(int a = 1; a<10; a++)
    {
        printf("%d\n",a);
    }

##</code><code>##

// UNTESTED
// UPDATED: de-obfuscated
    {
        int a = 1;

        while(a<10)
        {
            printf("%d\n",a);
            a++;
        }
    }

##</code><code>##

# UNTESTED
for (;EXPR;) BLOCK   # leave first and third EXPRs blank to be
                     # equivalent to while (EXPR) BLOCK

# UNTESTED
for (my @list = LIST, VAR = shift @list; # iterate manually through
     @list;                              # LIST in "for" to be
     VAR = shift @list) BLOCK            # somewhat like
                                         # foreach VAR (LIST) BLOCK
                                         # without the usual aliasing

##</code><code>##

perl -MO=Deparse -e "for (;<>;){print}"
while (defined($_ = <ARGV>)) {
    print $_;
}
-e syntax OK