foreach my $i (0 .. @titles) {
  print "Title: $title[$i]\n";
  print "Author: $author[$i]\n";
  print "Date: $date[$i]\n\n";
}