Another way, no array required

$_ = "ABCDEFG";
s/(.)/$1\n/g;
print;
[download]