Select Code to Download

use strict;
use warnings;
my @x = qw/a b c/;
my $x = \@x;
print "Array elements with spaces: @$x";