sub somefunc { our $Var //= do { say "Heavy calculations"; 42+($ARGV[0]||0); }; }