$ perl -E '
$str = q{abcdefg};
say chop $str while $str;'
g
f
e
d
c
b
a
$