my $line = $_->[2] // join(': ', @$_);
$line =~ s/^/$hash / if defined $hash;
my $line = $_->[2] // join(': ', @$_);
$line =~ s/^/$hash / if defined $hash;
my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
my $excess = $$counter++ - ($opt{min} // 0);
next if $excess >= ($opt{max} || 1);
my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
my $excess = $$counter++ - ($opt{min} // 0);
next if $excess >= ($opt{max} || 1);
but simplifications still apply for duplicate determination.
Additional samples are optionally given upto the given maximum.
but simplifications still apply for duplicate determination.
Additional samples are optionally given upto the given maximum.