perlのクロージャ

これでも良いけど

{
    my $count;
    sub func {
        return ++$count;
    }
}

最近ならこうstate使って

use feature qw(:5.10);
sub func {
    state $count;
    return ++$count;
}

ただstateって配列とかには使えない