I'd make a copy:

my $PL_sb_C_en_ina = join '|',
    map { chop; chop; $_;
    } @{[ qw( stamen foramen lumen) ]};
[download]

After Compline,
Zaxo