sub count_unique {
    my %count;
    $count{$_}++ for @_;