Re: Unique array w/o repeated elements and still keep the original order!

[tstock]

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

Tiago
Update: replaced 'if' with 'unless'. thanks robobunny

[robobunny]

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

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

as written, it will only print the duplicates.