BEGIN { %Foo::FIELDS = qw(a 1 b 1) };
my Foo $x = {};
$x->{c} = 1; # compile-time error