my @array = qw(HELLO THERE FELLOW PERL MONKS);
@array = (lc "@array");
print @array;