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

print @toes;
...