Using foreach in simple terms using simple language, in case you don't understand the above:

use warnings;
use strict;
my @word = qw/ ONE TWO THREE FOUR/;
foreach my $lcword (@word) {
    $lcword = lc($lcword);
}
print "@word";
[download]

HTH.