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