foreach (@record)
  {
  my ($name, $id, $summary) = split '';
  format STDOUT =
  ...
  }