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

##</code><code>##

sub reversi {
my (@array) = @_;
print reverse sort(@array);
}