sub foo {
    state $x = 1;
    say $x++;
}

foo;                      # outputs 1
foo;                      # 2
foo;                      # 3