my %lookup;
$lookup{$_} = -1 for @line2;

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