Item | \nTitle | \nAuthor | \nPublication Year | \nGenre | \n"; print "
"; print $i; print " | \n"; print ""; print $record[TITLE]; print " | \n"; print ""; print $record[AUTHOR]; print " | \n"; print ""; print $record[PUB_YR]; print " | \n"; print ""; print $genres[$record[GENRE]]; print " | \n"; print "