sub _::TIESCALAR{bless[pop],'_'} sub _::FETCH{ $_[0][0]++ } tie my $i, '_', 1;