use 5.20.0;
use List::AllUtils qw/ uniq sum /;

say sum map {
    my @u = uniq @$_;
    @u == @$_;
}
map { chomp; [ split ] } <>;