Select Code to Download

my @array = qw(HELLO THERE FELLOW PERL MONKS);
@array = (lc "@array");
print @array;
print $array[2]."\n";