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

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