package Foo;
use fields qw(foo bar);

package main;

my Foo $foo = {};

$foo->{baz} = 42;