Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^2: Order of execution of functions in list

by ikegami (Pope)
on Sep 13, 2013 at 13:26 UTC ( #1053932=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $ perl -E'@a=qw( a b c ); say 0+@a; shift(@a); say 0+@a;'
    3
    2
    
  2. or download this
    $ perl -E'$_=123; say; sub { sub { ++$_[0] }->(shift); }->($_); say;'
    123
    124