2017/07.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 my $valid = 0;
   7 LINE:
   8 while (<>) {
   9         chomp;
  10         my %seen;
  11         for my $w (split /\s+/) {
  12                 next LINE if $seen{$w}++;
  13         }
  14         $valid++;
  15 }
  16
  17 say $valid;
  18