use strict;
use warnings;

my $string = "Hello World";
my @string = split(//,$string);
for my $str (@string){
	print "$str\n";
}