use v5.14;

sub counter {
	state $count = 1;
	say $count++;
}

counter();
counter();
counter();
counter();