package Bla;
use strict;
use fields qw(foo bar bla);

sub new {
    fields::new(shift);
}

package main;

my $x = new Bla;
$x->{foo} = 1;
warn "Runtime";
$x->{vertippt} = 1;