my %dupes = (); # name->count
my $dref = \%dupes;