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