Do pigs get athlete's foot?

[t'mo]

#!perl -w
# athlete_piggy.pl -- a poem of sorts

use strict;

my @toes = map
  'This little piggy ' . chomp($_) . '.',
  <DATA>;

print "$_\n" for @toes;

__DATA__
went to the market
did not
got dried well
did rot
went "scratch, scratch, scratch" all the way home