well, if you really want to do this:

use feature "state";

sub a { 
  state $i++;
  print $i;
}
a(); a(); a();
[download]

prints 123