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