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