sub sub_pick_group_seg { my ($str) = @_;
  my $working=$str;
  my @groups;

  while ( $working =~ s/<\@=([\w\d\_\ ]+)>(.*?)<\/\@=\1>/<\@=\1>/gs )
  {
    my $name=$1;
    my $newvalue=$2;
    if ($name ne "")
    {
      my $gcount=@groups;
      my @subgroup;
      my $newvalue;
      ($newvalue, @subgroup)=sub_pick_group_seg ($newvalue);
      $groups[$gcount]{name}=$name;
      $groups[$gcount]{value}=$newvalue;
      my $subcount=@subgroup;
      if ( $subcount > 0 )
      {
        $groups[$gcount]{sub}=@subgroup;
      }
    }
  }
  return ($working, @groups);
}

##</code><code>##

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

##</code><code>##

---*--- value,name<br>
Bad index while coercing array into hash at ./mod/subst.cgi line 65.