15:40 >perl -e "@array = ("ONE","TWO","THREE","ABC","DEF"); @array = map { lc } @array; print join(', ', @array);" one, two, three, abc, def 15:40 >