Select Code to Download

use strict;

...
}
print "\@sec_gp: ";
print "$_\n" foreach @sec_gp;

@sec_gp: acad libsoftwrite helpdesk codes

   push(@sec_gp, "$gname") if $list[0] eq $name;