$ perl -e '
> use strict;
> use warnings;
> use v5.10;
>
> sub somefunc
> {
>    state $var = do {
>      say "Heavy calculations";
>      42+$_[0];
>    };
> }
>
> say somefunc(0);
> say somefunc(10);
> '
Heavy calculations
42
42