my %lookup;
++$lookup{$_} for @line2;

for (@line1) {
   print if $lookup{$_};
}