Btw, tilly's Tie::Static does what you want:

use Tie::Static qw(static);

sub persist {
  static \ (my $var);
  ++$var;
}
[download]