foreach my $word (@words) {
  $word = ucfirst $word
}