note
ccn
Something like this:
<code>
my %seen;
while (my $line = <>) {
chomp $line;
print $line
if $seen{ join '', sort split /\s+/, $line }++;
}
</code>
<p>Use a hash to check for duplicates. Compose a key for the hash in such a way that rows having similar columns give same keys.
<p><b>Update:</b> Missed ++ has been added.
798411
798411