@myNames = ('jacob', 'alexander', 'ethan', 'andrew');

@ucNames = map(ucfirst, @myNames);

​

foreach $key ( @ucNames ) {

   print "$key\n";

}

​