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