my $string  = "Hello World";
my $revcopy = reverse $string;

print chop($revcopy) . "\n" for 1 .. length($string);
[download]

while (defined(my $chr = chop $revcopy))
{
    print "$chr\n";
}
[download]