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

##</code><code>##

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