use strict;
use warnings;

my $variable = "Hello World";
ucfirst($variable);
print $variable;

##</code><code>##

  map { $sum += $index{$_}}  split (//,$word);