@GetServiceList = `grep ^[a-z] ./sub/100087.txt`;
chomp @GetServiceList;
print join (", ", @GetServiceList);