In article <[EMAIL PROTECTED]>,
        [EMAIL PROTECTED] (Ton Hospel) writes:

Notice by the way you can actually see what's happening like this:

perl -MO=Deparse -wle 'sub fun { print $_++ for reverse 1..3} BEGIN { fun}; fun'
3
2
1
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
sub fun {
    foreach $_ (reverse +(2, 3, 4)) {
        print $_++;
    }
}
sub BEGIN {
    fun ;
}
fun ;

Reply via email to