Or use map:

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

Hope that helps,

What is the purpose? If it's for comparison, and there's a possibility of taking Unicode input, there may be a more robust answer. Consider instead using fc (fold case) if you are using Perl 5.16.x, or Unicode::CaseFold with earlier Perl versions to obtain a case-neutral basis for comparison.

There are some good articles on the topic, but the following are probably among the best resources available:

• Perl Unicode Cookbook: Case Insensitive Comparisons
• There's a better (correct) way to case fold
• "compare strings regardless of case"

I'm probably over-thinking it though. It's possible you live in an ASCII-only world, and simply need lower case for some reason other than case-neutral comparisons, in which case, this post is irrelevant. ;)

use Data::Dumper;
@array = ("ONE","TWO","THREE","ABC","DEF");
$_=lc for @array;
print Dumper \@array;
[download]