Использование переменной char в tr///

Я пытаюсь подсчитать символы в строке и нашел простое решение, подсчитывающее один символ с помощью оператора tr. Теперь я хочу сделать это с каждым символом от a до z. Следующее решение не работает, потому что tr///соответствует каждому символу.

my @chars = ('a'.. 'z');
foreach my $c (@chars)
{
    $count{$c} = ($text =~ tr/$c//);
}

Как правильно использовать переменную char в tr///?