use strict;

my @words = qw/ONE TWO THREE/;
my @wordlwr = ();

foreach (@words) {
	push @wordlwr, lc($_);
}

foreach (@wordlwr) {
	print "$_\n";
}