怎么用perl求多个文件共有内容

假设有4个文件，每个文件里只有一列基因名字，我想用perl提取出每个文件独有行，每两个，每三个及每四个文件相同的行，相当于韦恩图，以文本格式输出。有没有哪位能告诉我怎么写，如果有多个文件又该怎么写呢？