my @LoH;
{
  local $/="\n\n"; # may be "\r\n\r\n" under windows...
  while (<>) {
    my ($t, $a, $l) = split /\n/;
    push @LoH, { Title => $t, Author => $a, List => $l };
  }
}