for my $word ( 0..$width ) {