After you got your result list:

@result = ("abc", "ABC", "egd", "HELLO");
@result = map {ucfirst} @result;;
print join(",", @result);
[download]