Select Code to Download

my %seen;
while (<>) {
...
  my $record = $seen{$k};
  # process $record
}

my %seen;
$/ = "\n\n";
...
for keys (%seen) {
  print join("\n", $seen->{$_}->{idline}, @{$seen->{$_}->{letters}}, "
+\n"), "\n";
}