Select Code to Download

my @A = [ '1', '2', '4', '8' ];
my @B = [ '1', '3', '6', '8' ];

my @a = qw/1 2 4 8/;
my $a = [qw/1 2 4 8/];  # an arrayref