my @r;@r = reverse @array and do { print pop @r while @r };
# Now I'm just being silly!