use TESTOBJ;
my @res = ();

my $t = new TESTOBJ;
$t->name("first");
$t->mpp0(111);
$res[0] = $t;
printf "Dump \$res[0]:  name '%s' mpp '%d'\n", 
                     $res[0]->name(), $res[0]->mpp0();

$t = new TESTOBJ;
$t->name("second");
$t->mpp0(222);
$res[1] = $t;
printf "Dump \$res[0]:  name '%s' mpp '%d'\n", 
                     $res[0]->name(), $res[0]->mpp0();
printf "Dump \$res[1]:  name '%s' mpp '%d'\n", 
                     $res[1]->name(), $res[1]->mpp0();


##</code><code>##

package TESTOBJ;

my %fields = (
    __name   => undef,
    __mpp    => [ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 ]
);

sub new {
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = { %fields };
    bless $self, $class;
    return $self;
} 

sub name {
    my $obj = shift;
    @_ ? $obj->{__name} = shift    # modify attribute
       : $obj->{__name};           # retrieve attribute
}

sub mpp0 {
    my $obj = shift;
    @_ ? $obj->{__mpp}[0] = shift  # modify attribute
       : $obj->{__mpp}[0];         # retrieve attribute
}