my @counts; # since there are only 10 possible values, all
            # digits, why use a hash?
while($largeStr=~/Tel: 06(\d)/g) 
{
    $counts[$1]++
}