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

##</code><code>##

my @tally = (0) x @regexes;