perl -E 'my @a=qw(10 20 30); say "@a!"; say @a . "!"'

##</code><code>##

10 20 30!
3!