use strict;
use warnings;

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