print {$out} "$regex:\t\t", $tally[$i] // 0, "\n";