for ($p = 0; $p < @a_table; $p++){
        @a_print = split (/\t/, $a_table[$p]);
        $nocomma = $a_print[5] / 100;
        $comma = &addcommas();
        print AUDIT "$a_print[0]\t$a_print[1]\t$read_time\t$a_print[3]\t$comma\n";
} # end for loop