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