my @firstLetters = map {substr $_, 0, 1} @foo;