http://qs1969.pair.com?node_id=11131512


in reply to extracting only those keys with uniq values in array list

my %seen;
while(<>) {
  chomp;
  my ($k, $v) = split/\t/, $_;
  print("$k\t$v\n") if $seen{$k} eq $v;
  $seen{$k} = $v
}

[download]

In Section Seekers of Perl Wisdom