foreach my $element ( reverse @array ) {
        print "$element\n";
    }

##</code><code>##

    @sorted_array = reverse sort @array;

##</code><code>##

    @sorted_array = sort { $b <=> $a } @array;

##</code><code>##

    @sorted_array = sort { $b cmp $a } @array;

##</code><code>##

    @reversed_array = map { $array[$_] } reverse 0..$#array;

##</code><code>##

    foreach $element ( @array ) {
        unshift @reversed_array, $element;
    }