Select Code to Download

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

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

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