i'm assuming it was just a typo, but i think you meant:

foreach my $instance (@lines2)
{
  print OUTF $instance unless $hsh{$instance}++;
}
[download]

as written, it will only print the duplicates.