my %seen;

++$seen{$_} while <$fh_in1>;
--$seen{$_} while <$fh_in2>;

for (keys(%seen)) {
   print($fh_out1 $_) if $seen{$_} > 0;
   print($fh_out2 $_) if $seen{$_} < 0;
}