"Did you test this?" Test 'poetry'? No. But after you pointed it out, I did and see what you mean. Note the revised edition:

...
my @toes = map
  "This little piggy " . $_,
  <DATA>;

print @toes;
...
[download]