>perl -wMstrict -lE
"S();
 S();
 sub S { state $s = 'hiya';  print $s++ }
 S();
"
hiya
hiyb
hiyc