use 5.010;
sub stateful {
  state $x = 0;
  say "state is ", $state++;
}

stateful; # state is 0
stateful; # state is 1