Select Code to Download

my @names = ("O'Toole,Peter",
             "O,Ari");
my @sorted = sort @names;
print join(";",@names),"\n";

my @names = (["O'Toole","Peter"],
             ["O", "Ari"]);
...
}
my @sorted = sort namesort @names;
print join(";",namejoin($sorted[0]),namejoin($sorted[1])),"\n";