$ perl -wE 'my @c = (1,2,3); say map { "*$_" } @c'
*1*2*3