#!usr/bin/env perl

#use strict;
use warnings;

open (FILE1,"< file1”);
while (!eof(FILE1))
{
chomp ($element1 = (<FILE1>));
open (FILE3"< file3”);
while (!eof(FILE3)
{
$element2 = (<FILE3>);
if ($element2 =~ /$element1/)
{print $element2;}
}
}