Select Code to Download

$ perl -E'@a=qw( a b c ); say 0+@a; shift(@a); say 0+@a;'
3
2

$ perl -E'$_=123; say; sub { sub { ++$_[0] }->(shift); }->($_); say;'
123
124