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