sub scroll {
my ($i) = @_;

my @x = for (my $x=0;$x!=(length($i)+1);$x++){ substr($i,$x,1), "\n"; };
return @x;


}

##</code><code>##

sub scroll {
my ($i) = @_
for (my $x=0;$x!=(length($i)+1);$x++){ print substr($i,$x,1), "\n"; }

}