Bug of the day

In a project for a client:

# remove duplicate raw lines
my $dups = $self->dups;
return if $dups->{raw}++;

Should have been:

# remove duplicate raw lines
my $dups = $self->dups;
return if $dups->{$raw}++;

No wonder all lines except the first where dups...