use Data::Dumper;
@array = ("ONE","TWO","THREE","ABC","DEF");
$_=lc for @array;
print Dumper \@array;