my $idx = $#array;
while ($idx--) {
    print "$array[$idx]\n";
}