my $day = "monday";
$day = ucfirst $day;
print "$day\n";