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