$ perl -e 'my $x = [qw{a b c}]; print "$x->@*\n"'
ARRAY(0x7f82b20040b0)->@*
$ perl -E 'my $x = [qw{a b c}]; print "$x->@*\n"'
a b c