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