Help for this page
Select Code to Download
Select
or
download this
return map { split / /, uc($_), 2 } @somearray;