gives(ovid,book(learning_perl), merlyn).