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

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


}