if ($tally[$i] ne '0') {
    printf {$out} "%-20s %30d \n", $regex, $tally[$i] // 0 ;
  }