sub new_guy { my %sums; ++$_ for @sums{@array}; }