use feature qw/ state /;
state $counter = 1;