sub Count {
    my $t;
    for ( @_[1..$#_] ) { ($t) += grep {$_ eq $_[0] } split // }
    return $t;
}