Select Code to Download

$ perl -E 'my @x = ([qw{a b c}]); say "@x"'
ARRAY(0x7fab41804248)

$ perl -E 'my @x = ([qw{a b c}]); say "@{$x[0]}"'
a b c