package MyClass;
use strict;
use warnings;
local %MyClass::FIELDS;
BEGIN { %MyClass::FIELDS = ('_test' => 1); }
sub new { bless ['PackageName', 'value_of_"_test"'], $_[0] }

package main;
my MyClass $t = new MyClass();
print $t->{'_test2'};