sort @names
foreach $name (@names) {
print "Name: $name \n" ; } ;