my $arr= @group[$indx];
print "---*--- " . join(",", keys(%$arr) ) . "<br>\n";
print "--+ " . $$arr{name} . "<br>\n";