This isn't directly relevant, but your code can be made more concise.

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

Others have already given you what hopefully you'll need to solve the problem.