Select Code to Download

$\ = "\n";
my @a = qw( One Two Three );
...
  print @a;
  print "@a";
}

One,Two,Three
One Two Three
OneTwoThree
One,Two,Three