$word = shift; `say $word` while ++$word;
You can change the width to suit the size area that you will be embedding to