Select Code to Download

sub sub_pick_group_seg { my ($str) = @_;
  my $working=$str;
...
  }
  return ($working, @groups);
}

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

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