delete do END else eval elsif exists for format foreach given grep
goto glob INIT if last local m my map next no our pos print printf
package prototype q qr qq qw qx redo return require s scalar sort
- split study sub tr tie tied use undef until untie unless when while
- y);
+ split state study sub tr tie tied use undef until untie unless when
+ while y);
my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
break bind binmode CORE cmp chr cos chop close chdir chomp chmod
say => 'say',
err => 'err',
+
+ state => 'state',
);
my %pos = map { ($_ => 1) } @pos;