$seen{$key} =~ m/$key+,/ ? print DUP : print NEW;