Addressing your second issue first, you probably should use a regular expression rather than index to do it. The index() function will return the position of the first occurrence of the string you are searching for. In your case, this means that unless the first occurrence of an exclamation point, question mark, or period is the last character in the string it will break. I think you can see how that matches your observations. A quick fix would be to use rindex() which searches from the end of the string backward but, as I said, a regex would be better. Something like:

$string .= '.' if $string !~ /[.!?]$/;
[download]

Regarding your first issue, look at the ucfirst() function. After you put the names in the array, you could do it like this:

@array = map ucfirst, @array;
[download]

-sauoq
"My two cents aren't worth a dime.";