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