my $firstName = 'Marco';
my $firstInitial = substr($firstName, 0, 1);
print "First initial is '$firstInitial'\n";