my (@array) = ("fred","barney","wilma","betty");
@array = sort @array;
@array = reverse @array;
print "@array\n";