my $letter = substr $string, 0, 1