my @subArray = grep {/^x/} @foo;

##</code><code>##

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

##</code><code>##

my @asLetters = map {[split '']} @foo;