programming-examples/perl/String/Join with 'map lc'.pl

print join(", ", (map lc, A, B, C));