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 ;
