my $x = join'', map {substr $_, 0, 1} @p;