Select Code to Download

use strict;
use warnings;
...
my $variable = "Hello World";
ucfirst($variable);
print $variable;

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