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

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