http://qs321.pair.com?node_id=189007


in reply to Unique array w/o repeated elements and still keep the original order!

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

[download]
Tiago
Update: replaced 'if' with 'unless'. thanks robobunny

In Section Seekers of Perl Wisdom