Select Code to Download

my @PP = ("foo", "bar", "baz");
my @OO = ("AAA", "bar", "CCC");

$PP[1][0] = "foobar";

#!/usr/bin/perl -l

...
print "\@PP: " . join(", ", @PP);
print "\@OO: " . join(", ", @OO);
print "\@bar: " . join(", ", @::bar);