use strict;
use warnings;
use v5.10;

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

say somefunc();
say somefunc();
__END__
Heavy calculations
42
42