Select Code to Download

foreach my $ptolist (@GROUP) {
   $ptolist = getRef($ptolist);
   $str .= "<li>".$$ptolist{title}."</li>";
}