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();