package Class::Of::Obj;

my $foo_idx = 0;
my $bar_idx = 1;
my $baz_idx = 2;

$obj->[$foo_idx] = 'foo';
$obj->[$bar_idx] = 'bar';
$obj->[$baz_idx] = 'baz';